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ABSTRACT 


A  general  mesh  generation  code  (MESHGEN)  and  finite  ele¬ 
ment  flow  solver  (TURBO)  for  calculating  the  flow  development 
through  axial  turbomachines  are  fully  documented.  The  finite 
element  approach  followed  Hirsch  and  Warzee.  Excellent  re¬ 
sults  were  obtained  for  the  NASA  Task-1  compressor  operating 
with  subsonic  flow  conditions.  Construction  of  the  code  will 
allow  straightforward  extension  to  transonic  flows,  turbine 
stages  and  multiple  stage  machines. 
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I.  INTRODUCTION 


A.  STATEMENT  OF  TASK 

The  original  task  of  this  research  project  was  to  con¬ 
tinue  the  work  of  Macchi  [Ref.  1]  and  Cirone  [Ref.  2]  in  the 
development  of  a  turbine  prediction  computer  code  for  the 
Turbopropulsion  Laboratory  at  the  Naval  Postgraduate  School. 
An  analysis  of  the  referenced  code  by  Ferguson  [Ref.  3]  in¬ 
dicated  that  a  significant  amount  of  work  remained  to  be 
done  in  order  to  make  the  program  operational.  In  the  au¬ 
thor's  opinion  the  task  could  be  better  accomplished  through 
the  use  of  a  different  solution  technique.  After  additional 
study  and  review  of  similar  work  [Refs.  4,  5,  6  and  7]  it 
was  decided  that  a  finite  element  approach  to  the  problem 
would  be  adopted.  A  program  developed  by  Gavito  [Ref.  8], 
which  followed  the  work  of  Hirsch  and  War zee  [Ref.  4],  was 
selected  as  the  basis  for  development  of  the  computer  code 
described  in  the  sections  that  follow.  However,  Gavito 's 
program  was  formulated  as  a  compressor  performance  predic¬ 
tion  which,  as  it  was  reported,  had  not  given  results  simi¬ 
lar  to  those  obtained  by  Hirsch  and  War zee.  Thus  the  first 
goal  of  the  project  became  the  development  of  an  axial  com¬ 
pressor  prediction  code  that  could  produce  results  compara¬ 
ble  to  those  published  by  Hirsch  and  War zee.  The  second 
goal  was  to  revise  and  document  the  program  so  that  its 


application  to  any  compressor  and  .its  extension  to  turbine 
analysis  could  be  carried  out  without  excessive  difficulty. 

B.  DESCRIPTION  OF  THE  PROBLEM 

One  purpose  of  conducting  a  through-flow  analysis  is  to 
predict  the  performance  of  a  turbomachine  under  design  and 
off-design  operating  conditions.  Through  the  combination  of 
a  mathematical  model  and  empirically  determined  correlations 
it  is  possible  to  provide  the  engineer  with  a  tool  that  will 
determine  the  effects  of  variations  in  design  parameters 
and  analyze  the  performance  of  an  existing  machine. 

The  first  problem  addressed  in  the  formulation  of  a  per¬ 
formance  prediction  code  is  that  of  expressing  the  analysis 
in  a  form  that  can  be  accurately  and  efficiently  solved  by 
computer  methods.  Most  methods  for  through-flow  calcula¬ 
tions  are  based  on  the  classic  work  of  Wu  [Ref.  9]  which 
stated  that  the  equations  of  fluid  flow  in  turbomachines  can 
be  solved  on  the  intersecting  sets  of  stream  surfaces  known 
as  the  SI  family  and  S2  family  of  stream  surfaces  (Fig.  1) . 
In  general  the  intersection  of  a  SI  surface  and  a  S2  sur¬ 
face  is  a  twisting  line  with  three  dimensional  variations. 
However,  if  an  axisymmetric  assumption  is  made,  the  S2  sur¬ 
face  will  lie  on  a  meridional  plane  and  the  directional 
derivatives  on  the  S2  surface  become  the  3(  )/3r  and  3(  )/3z 
in  cylindrical  coordinates.  As  shown  by  Smith  [Ref.  10], 
circumferentially  averaged  equations  with  an  axisymmetric 


flow  assumption  can  be  used  to  a  good  first  approximation 
for  the  through-flow  analysis. 

Three  general  methods  of  solving  the  so-called  radial 
equilibrium  equation  of  flows  in  turbomachines  which  results 
from  the  axisymmetric  assumption  can  be  found  in  the  litera¬ 
ture.  The  first  is  called  the  streamline  curvature  method 
[Refs.  I,  2  and  11].  The  method  derived  its  name  from  the 
fact  that  the  radius  of  curvature  of  the  streamline  is  an 
integral  part  of  the  formulation.  The  second,  a  matrix 
method,  applies  a  finite  differences  technique  to  the  radial 
equilibrium  equation,  normally  after  it  has  been  reduced 
to  a  Poisson  form  [Refs.  12  and  13].  The  third  method  is 
the  finite  element  method  which  was  used  in  the  present 
work. 

In  the  mid-1970's,  Hirsch  and  Warzee  [Ref.  4]  first  re¬ 
ported  the  application  of  the  finite  element  method  to  solu¬ 
tion  of  the  axisymmetric  radial  equilibrium  equation.  They 
applied  the  finite  element  technique  to  solve  the  equation 
expressed  in  quasi-harmonic  form  in  terms  of  the  stress 
function.  They  published  extensive  comparisons  of  the  pre¬ 
dictions  obtained  using  their  method  with  measurements  ob¬ 
tained  on  several  machines  under  various  operating  conditions. 
In  general,  the  method  produced  excellent  results  for  com¬ 
pressors  and  turbines  of  single  and  multi-stage  configura¬ 
tions.  It  was  this  demonstrated  ability  of  the  method  over 
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such  a  wide  range  of  parameters  that  let  to  its  selection 
for  use  in  the  present  project. 

In  the  sections  which  follow,  the  development  of  pro¬ 
grams  MESHGEN  and  TURBO,  which  are  based  on  the  work  of 
Hirsch  and  Warzee  [Ref.  4],  is  documented.  Comparisons  are 
given  of  the  results  obtained  when  the  program  was  applied 
to  analyze  the  NASA  Task-1  compressor  with  results  obtained 
by  the  referenced  authors. 


II.  MATHEMATICAL  MODEL 


The  equation  of  motion  for  a  fluid  has  the  general  form 
(Vavra  [Ref.  14]) 

(3$/3t)  +  (V*V)$  »  -Vp/p  +  lf  -  V  (gz)  (1) 

Using  the  vector  identity 

($*V)$  «  V(V2/2)  -  (3xVx$)  (2) 

Eq.  (1)  can  be  written  as 

3V/3t  +  V(V2/2  +  gz)  -  -Vp/p  +  !f  +  (VxVx^)  (3) 

The  first  law  of  thermodynamics  for  a  fluid  particle  can  be 
written  as 

Tds  *  dh  -  dp/p  (4) 

which,  along  an  elemental  path  length  dr  in  a  fluid  field 
implies  that 

T(dr*Vs)  ■  (dr*V)h  -  (dr»V)p/p  (4a) 

or 

dr  •  (Vh  -  TVs  -  Vp/p)  -  0  (5] 

Since  dr  is  not  equal  to  zero  in  general,  in  a  homogeneous 
fluid  flow  the  first  law  may  be  expressed  as 

Vh  -  TVs  -  Vp/p  ■  0  (6] 


Substituting  Eq.  (6)  into  Sq.  (3)  yields 


3V/3t  +  V  (h  +  Vz/2  +  gz)  -  TVs  +  £f  +  VxVxV  (7) 

For  steady,  inviscid  flow  Eg.  (7)  reduces  to 

VH  -  TVs  +  (VxVxV)  (8) 

As  shown  by  Hirsch  and  Harzee  [Ref.  15] ,  Eq.  (8)  can 
be  revised  to  describe  the  flow  through  blade  rows  by  intro¬ 
ducing  a  circumferential  averaging  process  and  assuming  that 
the  flow  is  axisymmetric  at  the  averaged  condition.  The 
averaged  equation  can  be  expressed  as 

-($xVx$)  *  TVs  -  VH  +  ?b  +  fd  (9) 

where  is  the  body  force  representing  the  action  of  the 
blades  on  the  flow  and  F^  represents  the  dissipative  force 
whose  work  generates  the  irreversible  entropies.  The  F^ 
forces  are  considered  to  be  uniformly  distributed  in  the 
tangential  direction  and  proportional  to  the  loss  coeffi¬ 
cients.  Equation  (9)  leads  to  the  following  three  equations 
in  cylindrical  coordinates  (with  3(  ) / 3 0  *  0) 

(Vu/r)  (3(rVu)/3r)  -  Vz((3Vr/3z)  -  (3Vz/3r))  - 

3H/3r  -  T(3s/3r)  “  Fb  r  “  r  (10a) 

(Vz/r)(3(rVu)/3z)'  +  (Vr/r)  (3  (rVu> /3r)  »  Fu  (10b) 

Vr((3Vr/3z)  “  dVz/3r))  -  (Vu/r)  ( 3  (rVu) /3z)  - 


3H/3z  -  T(3s/3z)  -  F_ 


(10c) 


Equation  (10a)  expresses  the  radial  equilibrium  of  the 
meridional  through- flow  and  it  is  the  governing  equation  to 
be  solved  for  the  velocity  components.  Equations  (10b)  and 
(10c)  determine  the  tangential  and  axial  components  of  the 
forces  once  Eq.  (10a)  has  been  solved. 

For  the  solution  of  Eq.  (10a)  to  have  physical  meaning, 
care  must  be  taken  to  ensure  that  continuity  is  satisfied 
throughout  the  field.  In  general,  the  continuity  equation 
can  be  expressed  as 

3p/3t  +  7* (pV)  *  0  (11) 

which  for  steady,  circumferentially  averaged  flow  can  be 
written  as 

(3/3r) (prbV  )  +  (3/3z) (prbV  )  -  0  (12) 

r  • 

where  b  is  a  blockage  factor  describing  the  reduction  in  the 
flow  area  in  the  tangential  direction  due  to  the  presence  of 
rotor  and  stator  blades.  The  tangential  blockage  is  ap¬ 
proximated  by 

b  *  1  -  t/s  (12a) 

where  t  is  the  blade  thickness  and  s  is  the  blade  spacing. 

As  will  be  discussed  in  the  description  of  subroutine  INPUT, 
this  factor  will  be  modified  to  account  for  the  end-wall 
boundary  layer  contractions.  A  stream  function,  ip,  can  be 
introduced  and  defined  so  that  Eq.  (12)  is  automatically 
satisfied  as  follows: 


After  the  substitution  of  Eqs.  (13a)  and  (13b)  into  Eq. 

(10a)  one  is  assured  of  the  implicit  satisfaction  of  con¬ 
tinuity  as  the  radial  equilibrium  equation  is  solved  ex¬ 
plicitly.  Equation  (10a)  may  now  be  written  as 

(3/3r)  ((1/prb)  (3ij//3r))  +  (3/3z)  ( (1/prb)  <3ip/3z) )  * 

(1/V2) ((3H/3r)  -  T(3s/3r)  + 

(Vu/r)(3(rvu)/5r))-  Fbr  -  Fd<r  (14) 

The  equation  is  written  in  a  slightly  different  form  for 
solution  in  rotor  regions  where  rothalpy  remains  constant 
along  a  streamline.  The  definition  of  rothalpy,  HR,  given  by 

«S  -  8  -  Wu  (15) 

is  substituted  into  Eq.  (14)  and  the  terms  in  brackets  on 
the  right-hand  side  become 

[3HR/3r  -  T(3s/3r)  -  (Wu/r)  (3(rVu)/3r)-  Fb,r-  r]  (16) 

The  significance  of  the  Fb  r  and  Fd  r  terms  can  be  analyzed 
in  the  following  manner.  The  body  force  Fb  acts  in  a  direc¬ 
tion  normal  to  the  mean  blade  surface,  which  for  radial 
blading  is  in  the  circumferential  direction.  The  term  Ffa  r 
accounts  for  the  body  force  component  in  the  radial  direc¬ 
tion  that  results  when  blade  lean  is  present.  For  most 
blading  this  is  a  small  term  that  may  be  neglected. 


Similarly,  r  is  the  contribution  of  the  dissipative 
forces  in  the  radial  direction  for  non-cylindrical  stream 
surfaces.  This  contribution  can  normally  be  neglected  for 
axial-flow  machines,  which  is  the  case  treated  here.  (Note 
that  the  two  body  force  terras  are  included  in  the  analysis 
for  machines  in  which  the  magnitudes  of  these  forces  are 
significant.)  With  these  simplifications  the  radial  equi¬ 
librium  equation  may  be  written  in  the  form 

(3/3r)  ( (1/prb)  (34>/3r)  )  +  (3/3z)  ( (1/prb)  (3<J>/3z))  * 

(1/Vz)  ((3H/3r)  -  T(3s/3r))+(Vu/r)  (3  (rVu) /3r)  (17) 

with  the  appropriate  modifications  for  solution  in  a  rotor 
region. 


III.  FINITE  ELEMENT  METHOD 


A.  INTRODUCTION 

The  finite  element  method  is  a  numerical  procedure  that 
is  particularly  well  suited  to  solving  problems  in  continuum 
mechanics,  which  invariably  involve  equations  expressed  in 
differential  form.  As  stated  by  Cook  [Ref.  16] ,  the  essence 
of  the  finite  element  method  is  the  "piecewise  approximation 
of  a  function  <J>,  by  means  of  polynomials,  each  defined  over 
a  small  region  (element)  and  expressed  in  terms  of  nodal 
values  of  the  function." 

In  order  to  understand  the  finite  element  method  and 
the  solution  techniques  employed  in  the  computer  program 
reported  herein,  one  must  first  have  a  complete  understand¬ 
ing  of  the  basic  element,  the  terminology  used  to  describe 
the  element,  and  the  relationship  between  the  element  and 
the  remainder  of  the  solution  domain.  The  complete  problem 
is  solved  in  a  piecewise  manner,  in  which  the  solution  of 
the  derived  governing  relationship  over  the  discrete  region 
of  an  element  is  sought  to  determine  the  contribution  of  the 
element  to  the  overall  solution.  Figure  2  illustrates  the 
single  element  as  it  is  used  in  the  present  work  and  the 
nomenclature  for  the  element  on  what  is  referred  to  as  the 
"local  domain".  The  number  scheme  to  employ  is  arbitrary, 
limited  only  by  the  requirement  that  the  system  remain 


consistent  from  element  to  element.  Figure  3  shows  a  ver¬ 
tical  stack  of  three  elements  to  show  how  elements  are  con¬ 
nected  in  what  is  known  as  a  "global  domain”.  Table  1  lists 
the  relationship  between  the  two  reference  systems,  known  as 
the  connectivity.  The  connectivity  is  important  because  the 
solution  of  a  problem  over  a  computational  region  involves  a 
careful  summation  of  the  local  contributions  of  each  element 
to  the  global  equations.  The  summation  process  is  tracked 
by  the  connectivity.  Again  the  global  numbering  scheme  is 
arbitrary,  influenced  mainly  by  considerations  of  computer 
storage  and  computational  efficiency. 

The  key  concept  uo  be  grasped  is  that  the  finite  element 
method  is  a  series  of  local  solutions  that  are  coupled  to¬ 
gether  through  the  connectivity  relationships  to  form  a  so¬ 
lution  for  the  entire  computational  domain.  A  more  detailed 
description  of  the  finite  element  method  is  contained  in 
Refs.  16  through  18. 

B.  APPLICATION  OF  THE  WEIGHTED  RESIDUAL  PROCESS 

A  standard  weighted  residuals' process  was  used  to  trans¬ 
form  Eq.  (17)  into  a  form  that  can  be  solved  by  numerical 
techniques.  As  a  first  step,  the  equation  was  written  in  a 
more  compact  form  as 

(3/3r)  [k(3i|>/3r)  ]  +  (3/3z) [k (3i|//3z) ]  +  f  =  0  (18) 

where 


k  (r , z)  =  (1/prb) 


(19) 


(20) 


f(r,z)  -  (1/V2)  [T(3s/3r)  -  3H/3r  +  (Vu/r)( 3(rVu) /3r)  ] 
with  the  boundary  conditions 

k(3ip/3n)  +  ^(iIi-iJiq)  =  0  (21) 

on  the  associated  exterior  surface  S.  Equations  (18)  and 

(21)  may  be  rewritten  as 

(1/r) { (3/3r) [k(3^/3r) ]  +  (3/3z) (k(3^/3z) ]  +  f }  =0  (22) 

in  the  volume,  V,  and 

(1/r)  [k  (3xp/3n)  +  (ty  -  <J>Q)  ]  »  0  (23) 

on  the  surface,  S.  An  approximation,  i£(r,z)  ,  of  the  unknown 
solution  is  searched  for  such  that  the  corresponding  weighted 
residual,  R,  is  equal  to  zero.  Analytically  this  is  ex¬ 
pressed  as 

R  =  / W(r,z)  Rv(r,z)  dV  +  Jw(r,z)  R,,(r,z)  dS  *  0  (24) 

V  S 

where  W(r,z)  is  the  (known)  weight  function  and  Ry  and  Rg 
are  the  so-called  "residuals"  in  the  volume  and  on  the  sur¬ 
face,  respectively.  As  the  sum  of  Ry  and  Rg  approaches 
zero,  the  approximation,  ijJ,  approaches  the  exact  solution, 

,  with  Ry  and  Rg  defined  to  be  identically  zero  if  *  r|». 

By  defining  Ry  to  be  equal  to  the  left-hand  side  of  Eq. 

(22)  and  Rg  to  be  equal  to  the  left-hand  side  of  Eq.  (23) , 

Eq.  (24)  can  be  written  as 

/-W(r,z)  [  (3/3r)  {k(3i|//3r)  }  +  (3/3z)  (k(3^/3z)  }  +  f]2irdft 

a 

+  /Wk(3^/3n)  2iTdC  *  0  (25) 

C 
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Integration  of  the  first  term  of  Eq.  (25)  by  parts  yields 

J[k{  (3iJ)/3r)  (3W/3r)  +  (3^/3z) (3W/3z) }  -  Wf ]  da  *  0  (26) 

a 

if  ip  is  selected  to  equal  along  the  corresponding  part  of 
the  boundary.  The  second  term  of  Eq.  (26)  reduces  to  zero 
through  the  proper  application  of  the  boundary  conditions. 

The  boundary  conditions  must  be  satisfied  in  different 
ways  for  different  portions  of  the  boundary.  Along  the  in¬ 
let  where  *  0  the  conditions  may  be  satisfied  by  speci¬ 
fying  (3^/3n)  to  be  zero  or  by  specifying  the  nodal  values 
of  if  the  inlet  conditions  are  conducive  to  calculating  ip 
for  each  node.  Along  the  shroud  and  along  the  hub  the  value 
of  ip  must  be  specified  as  ip  **  (m/27r)  at  the  shroud  and  ip  *  0 
at  the  hub.  For  nodes  at  the  exit  plane,  the  condition  that 
(dip/dn)  *  0  is  required. 

C.  APPLICATION  OF  THE  FINITE  ELEMENT  METHOD 

The  first  step  is  to  discretize  the  region  into  sub- 
regions  or  elements.  Within  each  element  the  unknown  stream 
function,  ip,  and  the  coordinates  r  and  z  are  assumed  to  have 
the  following  polynomial  variations: 

n 

4Mr,z)  »  l  4>iNi  ( ^ ,  n )  (27a) 

n 

r  -  l  riNi(C,n)  (27b) 

i 

n 

z  -  l  ziNi(C,n)  (27c) 


where  n  3  number  of  nodes  in  the  element 


i  / 


I 


i 


.  * 

1 


3  the  shape  or  (trial)  function  for  node  i 
\p^  =  value  of  ip  at  node  i 

r^  3  value  of  r  at  node  i 

z^  3  value  of  z  at  node  i 

Equations  (27b)  and  (27c)  imply  a  geometrical  as  well  as 

functional  transformation  or  mapping ,  as  shown  for  the  pres¬ 
ent  case  in  Fig.  4. 

The  second  step  in  the  process  is  the  selection  of  the 
weight  and  shape  functions.  The  shape  functions  are  defined 
when  the  particular  type  of  finite  element  is  selected  for 
the  computational  grid  [Ref.  16] .  The  eight-noded  quadri¬ 
lateral  was  used  in  the  present  program  and  its  associated 
shape  functions  were  entered  in  a  subroutine.  The  weight 
function  is  independent  of  the  shape  function  and  may  be 
chosen  at  the  discretion  of  the  individual.  In  the  present 
case  the  standard  Galerkin  technique  was  employed  and  there¬ 
fore,  the  weight  functions  were  defined  as  being  equal  to 
the  shape  functions,  so  that 

W(r ,z)  3  N (r ,z)  (28) 

Equation  (26)  may  now  be  expressed  in  the  following  form: 
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L 


where  /  represents  the  integral  over  an  element.  In  matrix 
E 

notation  this  becomes 


[K]e{5  }e  -  {f}' 


where 


fk (r ,z) [(3N./3r) (3N. /3r)+ (3N ./3z) (3N./3z)]da  (31a) 

f  J  1  j  1 


/ N.  f(r,z)  dfl 
E  1 


(31b) 


(31c) 


The  summation  of  the  elemental  contributions  over  the  entire 
region  yields  the  global  system  of  equations  needed  to  solve 
the  problem.  In  matrix  notation  the  global  system  of  equa¬ 


tions  is  expressed  as 


where 


[K]  {6  >  -  { f } 


[K]  =  l  [K]® 


(33a) 


(5  }  *  £  (5  }® 


(33b) 


*  A 

Cf }  =  l  {f}® 


(33c) 


number  of  elements  in  the  mesh 


[K]  »  system's  stiffness  matrix 
{f}  ■  system's  right-hand  side  vector 
Since  k^  and  f^  depend  on  the  unknown  solution  ip,  Eq.  (32) 
is  a  nonlinear  differential  equation  to  be  solved  by  an 
iterative  procedure.  The  details  of  the  procedure  are  con¬ 
tained  in  section  V. 

D.  NUMERICAL  INTEGRATION  TECHNIQUE 

In  general,  problems  are  analyzed  using  a  coordinate 
system  in  which  the  boundary  conditions  can  be  written  and 
satisfied  in  the  simplest  possible  way.  For  problems  with 
irregularly  shaped  boundaries  and/or  mixed  conditions  along 
different  portions  of  the  boundary,  obtaining  numerical  so¬ 
lutions  in  the  original  coordinate  system  can  be  a  formida¬ 
ble  task.  Very  often  a  scheme  must  be  found  to  transform 
the  derived  equations  into  a  new  coordinate  system  that  con¬ 
forms  to  the  requirements  of  standard  numerical  techniques. 
Traditional  transformation  techniques  tend  to  be  complicated 
exercises  in  algebra  that  require  extensive  reformulation 
for  each  geometry  or  type  of  boundary  condition.  The  power 
of  the  finite  element  method  is  the  automatic  inclusion  of 
a  transformation  of  the  geometry  and  the  function  to  a  rec¬ 
tangular  domain  where  a  variety  of  integration  techniques 
may  be  employed.  This  can  be  seen  in  Fig.  4,  which  illus¬ 
trates  what  is  implied  by  Eqs.  (27a),  (27b),  and  (27c).  The 
method  can  handle  extremely  complicated  boundary  conditions 
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and  shapes  with  aase  and  is  limited  only  by  the  type  of  ele¬ 
ment  selected  by  the  individual. 

The  quadratic  properties  of  the  eight-node  element  allows 
curved  boundaries  in  the  physical  domain  so  long  as  the  sec¬ 
tion  of  the  boundary  included  within  a  single  element  does 
not  have  a  point  of  inflection.  The  use  of  a  quadratic  ele¬ 
ment  also  ensures  continuity  of  the  approximated  function 
along  the  elemental  boundaries  regardless  of  the  direction 
of  approach  from  within  the  mesh.  The  specific  numerical 
technique  used  in  the  program  is  discussed  in  the  following 
section. 

1.  Stiffness  Matrix  Evaluation 

In  section  C  the  following  relationship  was  derived 
for  the  individual  elements  of  the  stiffness  matrix,  [K]: 

k?.  -  /k(r,z) [(3N./3r) (3N./3r)  +  (3N./3z) (3N./3z) ]dfl  (31a) 
13  £  J  i  J  * 

In  order  to  take  advantage  of  well  established  numerical  in¬ 
tegration  techniques,  Eq.  (31a)  must  be  transformed  from  the 
(z,r)  domain  and  its  irregular  elemental  boundaries  to  the 
rectangular  (5,n)  domain.  Equations  (27a)  through  (27c)  de¬ 
scribe  the  variation  of  the  function  and  the  (r,z)  coordinate 
values  in  the  (£,n)  plane.  In  order  to  transform  Eq.  (31a) 
it  is  necessary  to  determine  the  relationship  of  the  varia¬ 
tions  of  the  derivatives  in  the  two  domains.  These  relation¬ 
ships  can  be  derived  in  a  straightforward  manner  through  the 
use  of  the  chain  rule  as  follows: 
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(SHj/ac)  -  o^/az)  oz/ao  +  oi^/ari  tsr/ae)  C34) 

and 

ONj/an)  -  ONj/az)  (3z/3n)  ♦  ONj/ar)  Or/an)  (35) 

Equations  (34)  and  (35)  can  be  combined  in  matrix  form  as 


f3N^  T 3z  3rl  f 3N0 

Tz\  -ST  JK  I  ~3z"  I 

3N  I  3z  Jr  I  3Ni  | 

<.tn J  \Jr\  TnJ  L  Sr  J 


Through  the  selection  of  the  type  element  to  be  used  in  the 
mesh,  N^(£,n)  is  a  known  function  [Ref.  16],  which  makes 
possible  the  computation  of  the  left-hand  side  vector  for 
any  point  within  the  element  boundaries.  Similarly,  by  tak¬ 
ing  the  appropriate  derivatives  of  Eqs.  (27b)  and  (27c)  the 
2x2  matrix,  known  as  the  Jacobian  matrix  [J],  can  be  deter¬ 
mined.  It  follows  that  the  r  and  z  derivatives  of  the  shape/ 
weight  functions  can  be  determined  for  any  point  of  an 
element  from 


An  examination  of  Eqs.  (27a)  through  (27c)  shows  that  once 
the  derivatives  of  the  shape/weight  functions  are  known  for  • 
a  point  then  it  is  a  simple  procedure  to  determine  the 


derivatives  of  any  other  elemental  property  that  has  a  value 
specified  at  the  nodes. 


The  final  relationship  that  is  needed  for  the  trans¬ 
formation  is  the  relationship  between  the  differential  change 
in  the  coordinate  directions  of  the  (r,z)  plane  and  the  (£,n) 
plane.  As  shown  by  Kaplan  [Ref.  19 3 #  the  required  relation¬ 
ship  is 


dzdr  *  [j|d£dn 


(38) 


Equation  (31a)  can  now  be  transformed  for  integration  in  the 
(£,n)  plane  to  the  form 


where 


and 


1  1 


-1  -1 


n 

l 

k 


Nkkk(EB]TlB])  lJld^dT1 


H  ■  H'“ 


k  »  (1/prb) 


(39) 


(40) 

(41) 


The  Gauss-Legendre  method  of  numerical  integration 
was  used  to  obtain  a  solution  to  Eq.  (39) .  It  was  selected 
because  its  determined  accuracy  was  easily  determined  and 
the  simple  summing  procedure  used  in  the  solution  could  be 
efficiently  coded.  A  one  dimensional  example  is  used  here 
to  illustrate  the  use  of  the  method. 


The  definite  integral 


I  -  /  *<S)d£  (42) 

-1 

may  be  written  in  the  form 

I  *  W1<^1  +  w2(|»2  +  W3$3  +  .  .  .  +  Wn$n  (43) 

where  ■  (frt^) 

WL  a  Gaussian  weight  fuction  for  ^ 

The  values  of  the  points,  called  abscissas,  and  their  cor¬ 
responding  weighting  function  values  are  catalogued  for  use. 
The  number  of  points  to  be  used  is  determined  by  the  order 
of  the  function  to  be  approximated.  In  general,  a  polynomial 
of  (2n  -  1)  is  integrated  exactly  by  the  use  of  n  Gauss 

points.  In  two  dimensions  the  Gauss  method  can  be  written  as 

I  -  J1  /  <M£,n)d£dn  (44) 

-1  -1 

which  can  be  written  as 

n  m 

I  *  J  l  W^Mq,^)  (45) 

Equation  (39)  can  now  be  written  in  a  form  that  can  be  coded 
for  solution  by  the  computer  as 


The  scheme  used  in  the  program  is  a  two  dimensional,  three- 

point  Gauss  integration.  A  detailed  description  of  the 

T 

evaluation  of  [B]  [B]  and  the  method  used  to  obtain  k  is 

m 

contained  in  the  description  of  subroutine  STIFF. 

2.  Right-hand  Side  Vector  Evaluation 

In  Section  C  the  following  relationship  for  f  was 

derived: 


i 


/  N.  f(r,z)  dfl 
E  1 


(31b 


By  using  the  techniques  of  Section  Dl,  Eq.  (31b)  can  be  re¬ 
placed  by 


A  more  detailed  description  of  the  specific  methods  used  to 
solve  Eq.  (47)  is  contained  in  the  description  of  subroutine 


FCAL. 


IV.  DESCRIPTION  OF  PROGRAM  MESHGEN 


A.  MAIN  PROGRAM  DESCRIPTION 

MESHGEN  was  developed  in  order  that  the  required  inputs 
for  the  program  TURBO  could  be  generated  in  a  fast,  accurate, 
and  conceptually  correct  manner.  The  program  generates  an 
eight-node  isoparametric  element  mesh,  computes  the  related 
connectivity  matrix,  defines  the  type  of  region  enclosed  by 
each  element,  computes  the  tangential  blockage  factor  and  an 
estimate  of  the  stream  function  for  each  node  in  the  mesh, 
and  computes  the  thermodynamic  conditions  and  velocity  at 
the  inlet.  The  inputs  required  to  operate  the  program  are 
the  mass  flow  rate,  total  temperature,  and  total  pressure  at 
the  inlet,  the  blading  and  machine  geometries,  RPM,  Cp,  y,  R, 
and  scaling  constants  for  the  plot  of  the  mesh.  The  blading 
geometries  must  be  coded  in  the  program  as  a  subroutine  that 
uses  approximations  or  design  information  to  expriss  the 
blade  variables  as  functions  of  radius.  The  user  provides 
the  other  information  in  response  to  interactive  prompts. 

The  program  has  two  modes  of  operation,  one  which  generates 
a  complete  mesh  and  all  of  the  associated  information  and 
another  which  uses  a  previously  generated  mesh  to  compute  the 
changes  in  specific  arrays  that  result  from  a  change  in  the 
inlet  conditions. 
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The  program  is  completely  general  and  may  be  used  £or 
either  single-stage  axial  compressor  or  turbine,  and,  with 
very  minor  modifications,  can  be  expanded  for  use  with  multi 
stage  machines.  The  mesh  size  that  can  be  generated  by  the 
program  is  limited  only  by  computer  storage  considerations. 
To  use  the  program  for  another  machine ,  the  user  is  required 
to  replace  subroutine  TASK1  with  a  subroutine  that  can  com¬ 
pute  the  tangential  blockage  factor,  b,  for  the  desired 
blading.  The  functioning  of  the  program  and  its  subroutines 
for  both  modes  of  operation  is  described  in  the  section  B. 
The  program's  algorithm  in  outline  form  is  as  follows: 

Algorithm: 

Determine  the  value  of  the  appropriate  operating  condi¬ 
tions  and  whether  a  new  mesh  is  desired  (Subroutine 
INIT1)  . 

Obtain  the  coordinates  of  the  super  element  corners  and 
a  description  of  the  division  of  the  super  elements  into 
the  final  mesh.  Compute  the  storage  allocation  parame¬ 
ters  (Subroutine  INPUT) . 

Compute  the  (r,z)  coordinates  for  all  nodes  in  the  mesh 
(Subroutine  TMESH) . 

Compute  the  connectivity  relationships  for  the  mesh  and 
determine  the  beginning  and  ending  node  numbers  for  the 
rotor  and  stator  (Subroutine  CONEC) . 

Compute  the  array  of  node  numbers  where  the  value  of  \p 
is  to  be  specified.  Compute  an  initial  estimate  of  the 
nodal  stream  function  distribution  and  call  subroutine 
FLOFCT  to  determine  the  inlet  conditions  (Subroutine 
INIT2)  . 

Compute  the  nodal  tangential  blockage  factor,  b,  for  the 
rotor  and  stator  nodes  (Subroutine  TASK1) . 

Place  the  computed  values  in  disk  storage  (Subroutine 
FILGEN) . 


Plot  the  generated  mesh  on  the  Tektronix  618  terminal  for 
inspection  (Subroutine  MPLOT) . 

END 

B.  SUBROUTINE  DESCRIPTIONS 
1 .  Subroutine  INIT1 

Subroutine  INIT1  obtains  the  value  of  thermodynamic 
variables  and  plotting  parameters  that  are  required  for  the 
program  in  either  mode  of  operation.  The  user  is  required 
to  provide  the  values  of  the  mass  flow  (lbm/sec) ,  total  tem¬ 
perature  (°R) ,  and  total  pressure  (psia) ,  ratio  of  specific 
heats  (y) ,  gas  constant  (ft-lbf /lbm-°R) ,  and  the  specific 
heat  at  constant  pressure  {BTU/lbm-°R) .  The  scaling  con¬ 
stants  are  convenient  values  of  r  and  z  used  to  frame  the 
plot  of  the  mesh.  If  a  new  mesh  is  not  desired,  the  program 
exits  the  subroutine. 

Subroutine  INIT1  determines  if  a  new  mesh  is  to  be 
generated  by  the  response  of  the  user  to  an  interactive  ques¬ 
tion.  If  a  mesh  is  to  be  generated,  the  subroutine  obtains 
some  preliminary  information  about  the  flow  region.  Figure  5 
shows  how  the  user  must  first  divide  the  flow  region  into  a 
coarse  mesh  known  as  super  elements,  recording  the  (z,r)  co¬ 
ordinates  of  the  corner  points.  The  minimum  number  of  super 
elements  for  a  single-stage  compressor  is  five  so  that  the 
three  duct  regions,  the  rotor,  and  the  stator  may  be  repre¬ 
sented.  The  maximum  number  of  super  elements  and  the  subse¬ 
quent  division  into  mesh  elements  is  limited  only  by  the 
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storage  limitations  of  the  machine.  In  practice,  the  maxi¬ 
mum  number  of  elements  is  limited  by  the  number  of  equations 
that  may  be  solved  by  the  program  TURBO.  It  is  also  limited 
by  the  fact  that  only  one  super  element  may  be  used  to  de¬ 
scribe  a  rotor  or  duct  region  and  that  the  super  elements  for 
these  regions  may  only  be  further  subdivided  into  a  single 
column  of  elements.  The  latter  restrictions  are  for  compati¬ 
bility  with  the  computation  procedures  used  in  the  program 
TURBO.  A  decision  must  then  be  reached  on  what  subdivision 
of  the  super  elements  will  provide  a  mesh  that  is  sufficient¬ 
ly  fine  to  yield  accurate  results  efficiently.  Once  the  flow 
region  has  been  divided  into  super  elements  and  a  determina¬ 
tion  as  to  the  total  number  of  rows  and  columns  of  mesh 
elements  has  been  made,  the  user  can  input  the  appropriate 
values  in  response  to  the  prompts  provided  by  the  program. 

2 .  Subroutine  INPUT 

Subroutine  INPUT  uses  interactive  prompts  to  obtain 
a  description  of  the  turbomachine's  flow  passage  geometry  and 
the  desired  mesh  characteristics.  The  user  must  provide  the 
program  with  the  coordinate  values  of  the  super  element  nodes 
as  shown  in  Fig.  5.  The  values  are  entered  as  nodal  pairs  on 
a  station-by-station  basis.  The  first  (z,r)  coordinate 
ent  ired  is  the  node  on  the  shroud  and  the  second  lies  on  the 
hub.  The  program  then  asks  the  user  to  identify  the  type  of 
region  enclosed  in  each  super  element  and  into  how  many 
columns  each  super  element  is  to  be  divided. 


Enough  information  is  now  available  for  the  program 
to  compute  and  store  the  information  required  for  the  program 
TURBO.  Subroutine  INPUT  stores  the  responses  to  the  inter¬ 
active  prompts,  determines  the  values  of  the  storage  location 
pointers,  and  determines  if  any  storage  limitation  has  been 
exceeded.  If  any  storage  limitation  is  exceeded,  the  sub¬ 
routine  calls  the  appropriate  error  subroutine  to  halt  execu¬ 
tion.  The  interactive  portion  of  the  subroutine  is  omitted 
if  a  new  mesh  is  not  desired.  However,  the  values  of  the 
pointers  are  calculated  and  storage  requirements  are  evalu¬ 
ated  as  before.  A  listing  of  the  pointers  and  the  corres¬ 
ponding  variables  is  given  in  Appendix  A. 

3 .  Subroutine  TMESH 

Subroutine  TMESH  computes  the  nodal  coordinate  values 
from  the  information  obtained  in  subroutines  INIT1  and  INPUT. 
The  subroutine  uses  linear  interpolation  in  the  axial  direc¬ 
tion  and  a  quadratic  scheme  in  the  radial  direction.  The 
radial  interpolation  scheme  maintains  the  difference  in  the 
squares  of  the  radius  of  the  nodes  as  a  constant.  This  al¬ 
lows  the  assumption  of  equal  mass  flow  between  the  nodes  for 
uniform  axial  velocity  which  is  used  to  determine  the  initial 
estimate  of  the  nodal  stream  function  distribution.  The 
nodes  are  numbered  with  the  assumption  that  the  fluid  flow 
is  from  left-to-right  in  the  mesh  and  that  the  number  of 
columns  of  elements  is  greater  than  or  equal  to  the  number 
of  rows  of  elements.  The  node  at  the  inlet  shroud  is  labeled 
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1  and  the  node  at  the  outlet  hub  is  labeled  n  for  an  n  node 
mesh.  The  numbering  proceeds  on  a  column-by-column  basis 
from  top-to-bottom.  The  total  number  of  rows,  columns,  and 
mesh  elements  is  displayed  to  the  user.  The  mesh  computa¬ 
tions  are  omitted  if  a  new  mesh  is  not  created  and  elemental 
count  information  is  displayed  as  before. 

4 .  Subroutine  CONEC 

Subroutine  CONEC  generates  the  connectivity  matrix 
for  the  mesh.  The  connectivity  matrix  is  used  to  keep  track 
of  which  nodes  are  assigned  to  which  elements  and  the  ar¬ 
rangement  of  the  assigned  nodes  within  the  element.  The  con¬ 
nectivity  relationships  for  a  three  element  stack  is  shown 
in  Fig.  3.  Additionally,  the  subroutine  determines  the  first 
and  last  nodes  of  the  rotor  and  stator. 

5 .  Subroutine  INIT2 

Subroutine  INIT2  stores  the  node  numbers  for  nodes 
where  the  value  of  ij;  is  specified  as  a  known  quantity.  The 
array  is  used  in  the  program  TURBO  to  apply  the  boundary 
conditions.  The  array  is  not  computed  if  a  new  mesh  is  not 
desired.  For  either  mode  of  operation,  subroutine  INIT2 
computes  the  values  of  the  inlet  thermodynamic  variables, 
the  inlet  axial  velocity,  and  an  initial  estimate  of  the 
nodal  stream  function  distribution.  Subroutine  FLOFCT  is 
used  to  calculate  the  inlet  conditions  and  is  described  in 
the  next  section.  The  initial  stream  function  is  computed 
from  the  boundary  conditions  at  the  shroud  and  hub.  Along 
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the  shroud,  ip  is  specified  to  be  equal  to  ( m/2n )  and  along 
the  hub  to  be  zero.  The  value  of  ip  along  the  inlet  is  de¬ 
termined  by  a  linear  interpolation  because  of  the  quadratic 
node  spacing  in  the  radial  direction.  The  remaining  nodal 
values  of  ip  are  obtained  by  an  assumption  that  ip  is  a  con¬ 
stant  along  the  streamwise  boundaries  of  the  elements.  The 
assumption  is  obviously  in  error,  but  it  observes  the  boun¬ 
dary  conditions  and  provides  a  reasonable  first  estimate  to 
begin  the  iteration  scheme  used  in  the  program  TURBO. 

6.  Subroutine  FLOFCT 

Subroutine  FLOFCT  computes  the  inlet  conditions  for 
a  passage  with  a  specified  geometry,  mass  flow  rate,  total 
temperature,  total  pressure,  and  an  assumed  uniform  inlet 
velocity.  The  method  followed  is  the  "total  flow  function" 
formulation  proposed  by  Shreeve  [Ref.  20] .  The  total  flow 
function  is  defined  as  the  ratio  of  the  mass  flux  to  the 
limiting  or  stagnation  mass  flux.  The  following  definitions 
and  equations  are  required  for  the  method: 


Vt  =  [ 2H] 0,5  (48) 

X  =  V/Vt  (49) 

T/Tt  *  1  -  X2  (50) 

X 

?  (Y-l) 

p/pt  =  (1  -  X^)  (51) 

.  (y-i) 

p/pt  -  (1  -  x^)  (52) 
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From  the  definition  of  the  total  flow  function,  <p,  it  follows 
that 


<J> 


pv/Ptvt 


x(i  - 


l 

2  Y“1 
X2) 


(53) 


The  value  of  $  at  the  inlet  can  be  calculated  at  the  inlet 
from  the  assumed  uniform  conditions  by  the  expression 


*  m/(ptVtA) 


(54) 


The  value  of  X  at  the  inlet  is  found  through  the  following 
Newtonian  iteration: 


<j>1  =  m/(ptVtA) 


(54) 


Assume  X  =  0.1  to  assure  the  selection  of  the  subsonic  root. 


Calculate: 

and 

Test 


Y“ 


<p  -  X(1  -  X  ) 
d(D/dX  -  {1/X-  2X/[  (Y  -  1)  (1  -  X2)  ]  } 


-  <H  <  e 


(53) 


If  the  test  fails  then  calculate 

X  »  X  +  (<f>1  -  (t>)  (d<j>/dX) 

and  recalculate  $  until  convergence  is  reached.  Once  con¬ 
vergence  is  reached  the  inlet  conditions  are  computed  by 
equations  (50)  through  (52). 

7 .  Subroutine  TASK1 

Subroutine  TASK1  computes  the  nodal  tangential  block¬ 


age  factor  for  the  blading  of  the  NASA  TASK1  transonic  com¬ 
pressor.  The  value  of  the  blockage  factor  is  determined  by 


b  «  1  -  t/s 


(12a) 


The  values  of  t  and  s  are  obtained  by  approximations  to  the 
known  blading  geometry  that  are  expressed  as  functions  of 
radius.  The  maximum  thickness  of  the  blade  is  artificially 
defined  to  be  at  the  mid-point  of  the  chordline  to  ensure 
that  the  factor  is  accounted  for  in  the  calculations  in  the 
program  TURBO.  This  artificiality  could  easily  be  removed 
through  a  modification  to  the  axial  interpolation  scheme  used 
in  rotor  and  stator  super  elements.  Subroutine  TASK1  is  the 
only  machine  dependent  subroutine  in  use  in  the  program  and 
would  need  to  be  replaced  with  an  appropriate  substitute  in 
order  for  the  program  to  be  used  on  another  machine.  The  use 
of  the  subroutine  is  omitted  if  the  user  does  not  desire  a 
new  mesh. 

8.  Subroutine  FILGEN 

Subroutine  FILGEN  places  the  computed  mesh  parameters 
on  disk  storage  for  use  in  the  program  TURBO.  If  the  limited 
mode  of  operation  was  selected  by  the  user,  the  subroutine 
only  updates  the  values  of  the  parameters  that  change  for  a 
new  inlet  condition.  A  listing  of  the  output  parameters  and 
their  corresponding  storage  location  is  given  in  Appendix  B. 

9.  Subroutine  MPLOT 

Subroutine  MPLOT  provides  an  on-line  plot  of  the  com¬ 
puted  mesh  on  the  Tektonix  618  graphics  terminal.  Figure  6 
shows  the  63  element,  222  node  mesh  used  in  the  computations 
of  the  test  cases.  The  subroutine  displayed  the  mesh  through 
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direct  calls  to  the  subroutines  of  the  library  plotting 
package,  GRAFF.  The  subroutine's  algorithm  is  as  follows: 

Algorithm: 

Form  two  Real*4  arrays  from  the  information  in  the  r  co¬ 
ordinate  and  the  z  coordinate  arrays  for  plotting 
compatibility . 

Sort  the  arrays  and  plot  the  streamwise  boundaries  of  the 
mesh  elements. 

Sort  the  arrays  and  plot  the  transverse  boundaries  of  the 
mesh  elements. 

END 

10 .  Subroutine  ERR1 

Subroutine  ERR1  is  called  by  subroutine  INPUT  if  the 
storage  limitation  for  Real*8  variables  has  been  exceeded. 

The  subroutine  displays  the  amount  by  which  the  limitation 
was  exceeded  and  terminates  the  program's  execution.  The 
user  response  would  be  to  increase  the  value  of  LIMR  if  pos¬ 
sible  or  reduce  the  size  of  the  mesh. 

11 .  Subroutine  ERR2 

Subroutine  ERR2  is  called  by  subroutine  INPUT  if  the 
storage  limitation  for  Real*4  variables  has  been  exceeded. 

The  subroutine  displays  the  amount  by  which  the  limitation 
was  exceeded  and  terminates  the  program's  execution.  The 
user  response  would  be  to  increase  the  value  of  LIM4  if  pos¬ 
sible  or  reduce  the  size  of  the  mesh. 

12 .  Subroutine  ERR3 

Subroutine  ERR3  is  called  by  subroutine  INPUT  if  the 
storage  limitation  for  Integer*4  variables  has  been  exceeded. 


The  subroutine  displays  the  amount  by  which  the  limitation 
was  exceeded  and  terminates  the  program ls  execution.  The 
user  response  would  be  to  increase  the  value  of  LIMI  if  pos¬ 
sible  or  reduce  the  size  of  the  mesh. 
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DESCRIPTION  OF  PROGRAM  TURBO 


Program  TURBO  solves  the  quasi-harmonic  stream  function 
radial  equilibrium  equation  for  flow  in  an  axial  compressor. 
The  program  uses  the  information  computed  by  the  program 
MESHGEN  to  calculate  the  desired  thermodynamic  information 
at  all  nodal  points  and  displays  selected  values  on  a  graph¬ 
ics  terminal  for  inspection. 


A.  MAIN  PROGRAM  DESCRIPTION 

The  program  obtains  a  solution  of  the  equation 

[K]U>  *  {f}  (32) 


An  iterative  scheme  was  adopted  for  this  nonlinear  problem, 
whereby  an  estimate  of  the  stream  function  distribution  is 
used  to  calculate  values  of  the  velocity  components  and 
thermodynamic  variables  at  the  nodes  of  the  mesh.  These 
computed  values  are  then  substituted  into  Eq.  (32)  and  a  new 
value  of  the  stream  function  distribution  is  calculated.  The 
estimate  of  the  distribution  is  compared  to  thu  calculated 
value  to  determine  if  the  solution  has  reached  convergence 
according  to  the  following  criterion: 


€  > 


*.n  -  £.n+1 


-  n+1 

♦i 


(47) 


I 

where  *  estimate  of  ip  at  node  i 

|  *  solution  for  ip  at  node  i 

If  the  maximum  difference  for  all  nodes  is  less  than  e,  the 
|  procedure  is  terminated.  If  the  maximum  difference  exceeds 

some  specified  value  of  e,  the  new  estimate  of  ip  to  be  used 
for  the  next  iteration  is  determined  using 

I  i  n+1  .  n  ,  Tr  n+1  .  n”|  ,.0 

1  +  aN»i  -  ♦i  J  (48 

where  *  new  estimate  of  <p  for  the  next  iteration 

a  *  under  relaxation  factor  required  for  conver¬ 
gence  because  of  the  strong  nonlinear  proper¬ 
ties  of  Eq.  (32) . 

The  process  of  constructing  the  inputs  required  for  Eq. 
(32)  is  repeated  until  convergence  is  obtained.  The  details 
of  calculating  the  inputs  and  constructing  the  stiffness 
matrix  and  the  right-hand  side  vector  are  contained  in  de¬ 
scriptions  of  the  program's  subroutines. 

The  program's  algorithm  follows  in  outline  form: 

Obtain  the  computational  constants  (SUBROUTINE  RDATA) . 

Determine  the  values  of  the  pointers  used  to  partition  the 
storage  arrays  (SUBROUTINE  INIT1) . 

Set  the  initial  values  for  all  storage  locations  to  0.0  or 
0  as  appropriate  (SUBROUTINE  ZEROI) . 

Recall  from  storage  the  externally  computed  input  values 
and  initialize  the  inlet  conditions  (SUBROUTINE  INPUT) . 

Calculate  a  velocity  and  thermodynamic  variable  distribu¬ 
tion  based  on  the  assumed  stream  function  distribution  and 
the  inlet  conditions  (SUBROUTINE  DIST) . 


8 


From  the  distributions  obtained  in  DIST,  calculate  the 
right-hand  side  vector  {f}  (SUBROUTINE  FCAL) . 

Using  the  density  and  blockage  factor  distributions,  form 
the  stiffness  matrix  [K]  (SUBROUTINE  STIFF) . 

Solve  the  system  of  linear  equations  to  obtain  a  new  stream 
function  distribution  (SUBROUTINE  DSIMQ) . 

Place  the  solution  vector  in  its  proper  storage  location 
(SUBROUTINE  REPLA) . 

Compare  the  original  stream  function  distribution  to  the 
solution  vector  to  determine  the  maximum  difference  in  the 
distributions  for  all  nodes  (SUBROUTINE  TEST) . 

Determine  if  the  convergence  criterion  has  been  satisfied. 

If  convergence  has  not  been  obtained,  perform  the  relaxa¬ 
tion  iteration  to  update  the  estimate  of  the  stream  func¬ 
tion  distribution  (SUBROUTINE  RELAX) ,  prepare  for  another 
cycle  (SUBROUTINE  NOCON) ,  and  then  return  to  SUBROUTINE 
DIST  for  further  calculations. 

If  the  convergence  criterion  has  been  satisfied,  print  the 
results  (SUBROUTINE  OUTPUT)  and  display  selected  informa¬ 
tion  on  the  graphics  terminal  (SUBROUTINE  MPLOT) . 

END 


B.  SUBROUTINE  DESCRIPTIONS 

Sections  1  through  23  provide  a  detailed  description  of 
the  subroutines  of  program  TURBO. 

1.  Subroutine  RDATA 


Subroutine  RDATA  is  used  to  store  the  following  com¬ 
putational  constants: 

(a)  Logical  Input/Output  variable  NREAD  and  NWRITE. 

(b)  Relaxation  factor. 

(c)  Limits  for  the  storage  arrays. 
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(d)  Three-point  Gaussian  abscissas  and  weighting  values. 

(e)  Constants  used  £or  conversions  between  different  units. 

2.  Subroutine  INIT1 

Subroutine  INIT1  determines  the  values  of  the  point¬ 
ers  used  to  partition  the  Real*8,  Real*4 ,  and  Integer*4  ar¬ 
rays  and  determines  whether  the  storage  limitations  for  any 
of  the  arrays  has  been  exceeded.  If  the  storage  limitations 
have  been  exceeded  the  subroutine  will  halt  execution  by 
calling  the  appropriate  error  subroutine.  A  listing  of  the 
pointers  and  their  corresponding  array  names  is  contained  in 
Appendix  C. 

3.  Subroutine  ZEROI 

Subroutine  ZEROI  sets  the  initial  value  of  all  arrays 
equal  to  0.0  or  0  as  appropriate. 

4.  Subroutine  INPUT 

Subroutine  INPUT  retrieves  required  input  information 
from  its  corresponding  disk  storage  location.  The  informa¬ 
tion  must  be  placed  in  storage  before  running  program  TURBO. 
The  usual  method  of  generating  the  information  and  placing 
it  in  storage  is  through  the  use  of  the  program  MESHGEN. 

Subroutine  INPUT  also  initializes  the  inlet  condi¬ 
tions  to  their  proper  values,  and  modifies  the  nodal  blockage 
factors  to  account  for  end-wall  boundary  layer  effects.  No 
attempt  was  made  to  include  a  global  method  for  calculating 
the  blockage  factors;  rather,  a  method  similar  to  the  one 
used  by  Hirsch  and  Warzee  [Ref.  4]  was  used.  The  full  method 


used  by  Hirsch  and  Warzee  was  to  artificially  reduce  the 
size  of  the  flow  passage  by  reducing  the  boundaries  of  the 
mesh,  followed  by  the  application  of  a  general  blockage  fac¬ 
tor  to  the  nodes  of  the  mesh.  In  the  program  TURBO,  no  mesh 
modifications  are  made.  The  procedure  followed  was  to  apply 
a  general  blockage  factor  to  all  nodes,  followed  by  the  ap¬ 
plication  of  an  additional  blockage  factor  to  nodes  in  the 
outer  elements  in  the  rotor,  stator,  and  the  passage  in  be¬ 
tween.  Though  reasonable  results  were  obtained  by  this 
method,  the  handling  of  the  end-wall  boundary  layers  remains 
the  most  obvious  weakness  in  the  code.  This  is  addressed 
specifically  in  section  VII. 

5.  Subroutine  DIST 

Subroutine  DIST  calculates  the  distributions  of 
velocity,  density,  temperature,  pressure,  fluid  flow  angles, 
entropy,  and  enthalpy  using  the  known  blade  and  machine 
geometry,  inlet  conditions,  and  the  assumed  distribution  of 
the  stream  function.  Properties  of  nodes  at  the  mid-line 
of  the  rotor  or  stator  blades  were  assumed  to  have  a  value 
equal  to  the  average  of  the  inlet  and  exit  conditions  of  the 
blade.  The  elemental  calculations  are  accomplished  through 
the  control  of  subroutines  SLINE,  DUCT,  ROTO,  and  STAT. 

The  following  is  the  subroutine  DIST ' s  algorithm  in 
outline  form: 

For  each  element  in  the  mesh. 

Determine  type  element  for  appropriate  computations. 


Duct  Elements 


i 


For  each  node  at  stations  2  and  3: 

Determine  the  location  of  the  streamline  and  thermo¬ 
dynamic  conditions  at  station  one  (Subroutine  SLINE) . 

(If  the  element  is  along  the  machine  exit  plane,  en¬ 
sure  that  (dip/dz)  =0.) 

Compute  the  thermodynamic  conditions  (Subroutine  DUCT) . 

Assign  the  appropriate  values  to  the  proper  storage 
location. 

Rotor  Elements 


For  each  node  at  stations  1: 

Determine  the  location  of  the  streamline  at  station  3 
and  the  34;/ 3z  and  the  dip/ dr  at  stations  1  and  3  (Sub¬ 
routine  SLINE) . 

Determine  the  inlet  and  outlet  relative  flow  angles  and 
the  outlet  absolute  flow  angle. 

Compute  the  total-to-total  pressure  ratio  and  the  adia¬ 
batic  efficiency  for  the  streamline  (Subroutine  ROTO) . 

Assign  the  appropriate  values  to  the  proper  storage 
location. 

For  each  node  at  stations  2: 

Determine  the  location  of  the  streamline  and  the  ther¬ 
modynamic  conditions  and  the  dip/dz  and  the  dip/ dr  at 
stations  1  (Subroutine  SLINE) . 

Determine  the  location  of  the  streamline  and  the  34// 3z 
and  the  dip/ dr  at  station  3  (Subroutine  SLINE)  . 

Determine  the  inlet  and  outlet  relative  flow  angles  and 
the  outlet  absolute  flow  angle  and  the  relative  devia¬ 
tion  angle. 

Compute  the  thermodynamic  conditions  at  station  3  (Sub¬ 
routine  ROTO) . 

Compute  the  value  of  all  properties  for  the  node  as 
being  the  average  of  the  values  at  station  1  and  sta¬ 
tion  3. 
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Assign  the  appropriate  values  to  the  proper  storage 
location. 


For  each  node  at  stations  3: 

Determine  the  location  of  the  streamline  and  thermo¬ 
dynamic  conditions  at  station  1  and  the  value  of  dip/3z 
and  3^/3r  at  stations  1  and  3  (Subroutine  SLINE) . 

Determine  the  inlet  and  outlet  relative  flow  angles  and 
the  outlet  absolute  flow  angle  and  compute  the  thermo¬ 
dynamic  conditions  (Subroutine  ROTO) . 

Assign  the  appropriate  values  to  the  proper  storage 
location. 

Stator  Elements 

The  stator  algorithm  is  the  same  as  the  rotor  algorithm 
except  the  outlet  absolute  flow  angle  is  the  only  angle 
calculated.  The  inlet  absolute  flow  angle  is  determined 
through  interpolation. 

6 .  Subroutine  SLINE 

In  order  to  understand  the  functioning  of  this  sub¬ 
routine  and  others  to  follow,  one  must  refer  to  the  nomen¬ 
clature  used  to  describe  the  eight-node  element.  Figures  2 
and  3  show  the  nomenclature  clearly  and  Table  1  demonstrates 
the  connectivity.  All  of  the  calculations  in  the  program  for 
the  distributions  of  velocity,  flow  angles,  and  thermody¬ 
namic  properties  are  founded  on  the  assumption  that  the 
points  in  question  lie  on  the  same  stream  surface.  Thus  the 
objective  of  the  subroutine  is  to  obtain  the  location  of  a 
given  value  of  the  stream  function  at  a  specified  station  in 
the  flow  region.  The  location  of  the  streamline  is  required 
in  order  to  compute  the  variables  used  in  [K]  and  {f}. 
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Through  the  application  of  the  boundary  conditions, 
the  nodes  along  the  shroud  are  defined  to  lie  on  one  stream 
surface  and  the  nodes  along  the  hub  are  on  another.  It  is 
possible  for  all  other  nodes  in  the  mesh  to  be  on  different 
stream  surfaces.  For  these  nodes  an  interpolation  scheme 
must  be  followed  to  find  the  (C,n)  coordinates  of  a  specified 
stream  surface  at  a  given  station  in  the  mesh. 

The  solution  sequence  that  the  program  follows  starts 
at  the  top  element  of  the  first  column  of  elements  in  the 
mesh  and  solves  the  thermodynamic  and  velocity  conditions 
for  all  nodes  in  the  element  using  the  assumed  stream  func¬ 
tion  distribution  and  the  specified  inlet  conditions.  When 
the  calculations  for  the  first  element  are  complete,  the 
program  continues  down  the  column  until  the  calculations  are 
complete  for  the  element  along  the  hub.  The  program  then 
sequences  to  the  top  element  for  the  next  column  and  con¬ 
tinues  until  the  calculations  are  complete  for  the  last  ele¬ 
ment  in  the  nu.sh.  In  this  sequence  it  is  always  possible 
to  calculate  the  conditions  at  station  1  of  an  element  for 
any  interim  nodal  values  of  the  stream  function. 

The  process  will  be  described  by  way  of  an  example 
for  one  node  as  shown  in  Fig.  3. 

Example:  Find  the  (£,n)  coordinates  of  the  streamline  that 
passes  through  node  7  of  element  1,  Node  (1,7). 

From  the  connectivity  relationships  it  is  known  that 


(Node  (1,7))  =  (14) 


The  value  of  (14)  is  known  and  the  search  is  begun  to  find 
two  nodal  vaules  of  £  at  station  1  that  bracket  the  desired 
value,  (14).  The  program  first  tests  to  see  of  (Node  (1,7)) 
is  greater  than  (Node  (1,5)).  In  this  case  it  is  not  and  the 
program  would  automatically  shift  and  test  to  see  of 
(Node  (1,7))  is  greater  than  (Node  (2,5)).  In  this  example 
the  value  is  larger  and  the  same  test  would  be  applied  to 
(node  (2,4)).  Again  the  answer  would  be  true.  The  program 
would  then  test  to  see  if  the  value  of  (Node  (2,3))  were 
larger  than  (Node  (1,7)).  The  answer  being  true  would  sig¬ 
nal  the  program  that  the  location  of  the  streamline  had  been 
bracketed  and  a  half-interval  technique  would  be  applied  to 
find  the  location.  As  shown  in  Fig.  4,  the  value  of  £  for 
all  locations  along  station  1  is  -1.  This  fact  is  important 
for  two  reasons.  One,  with  C  known  the  program  is  only  re¬ 
quired  to  iterate  on  n  to  obtain  convergence.  Two,  the 
Kronecker  delta  property  of  the  shape  functions  means  that 
only  the  shape  functions  at  station  1  have  nonzero  values 
[Ref.  16] .  For  the  half  interval  method,  the  program  uses 
the  average  n  of  the  most  recent  bracketing  as  its  estimate 
for  n.  In  this  example  the  first  estimate  of  n  is  equal  to 
0.5  and  the  solution  for  at  (-1.,  0.5)  can  be  written  as 

>l>  (-1.  ,0.5)  =  N3(-1.,0.5)i{>,  +  N.  (-1.  ,0.5)!j>.  +  N-(-l.,0.5)i|>- 


The  solution  is  then  compared  to  ip  (Node  (1.7))  to  determine 
if  the  difference  is  less  than  some  e.  If  the  difference 
exceeds  e,  the  new  estimate  for  n  becomes  0.25  or  0.75  de- 
pending  on  whether  the  solution  is  larger  than  or  less  than 
the  value  of  ip  (Node  (1,7)).  The  process  is  continued  until 
convergence  is  reached.  Once  £  and  n  for  the  streamline 
location  at  station  1  are  known,  all  of  the  properties  for 
station  1  can  be  determined.  (The  same  method  is  used  to 
find  the  location  of  the  streamline  at  station  3  for  rotor 
and  stator  elements.)  Having  determined  the  coordinates 
of  streamlines  at  all  desired  locations  it  is  possible  to 
calculate  the  required  (3N^/3r)  and  (3N^/3z) .  The  computed 
inlet  and  exit  coordinates  and  conditions  are  then  passed 
to  subroutine  DIST  for  use  in  subroutines  DUCT,  ROTO,  and 
STAT  as  appropriate  for  the  calculation  of  the  conditions 
at  Node  (1,7) . 

The  following  is  the  subroutine ' s  algorithm  in  out¬ 
line  form: 

Duct  Element 

If  the  node  being  investigated  is  on  station  one,  exit  the 
subroutine . 

For  stations  two  and  three,  determine  the  streamline  co¬ 
ordinates  and  the  thermodynamic  conditions  at  station  one 
and  compute  the  dip/dz  and  3i|//3r  at  the  node.  Exit  the 
subroutine . 

Rotor /Stator  Element 

If  the  node  being  investigated  is  on  station  one,  set  all 
inlet  thermodynamic  variables  equal  to  the  corresponding 
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nodal  value  and  compute  the  3tJ>/3z  and  the  3tJ>/3r  at  station 
three.  Exit  the  subroutine. 

For  station  two,  determine  the  streamline  coordinates  and 
the  thermodynamic  conditions  at  station  one  and  compute  the 
streamline  location  and  the  34>/3z  and  the  3\|>/3r  at  station 
three.  Exit  the  subroutine. 

For  station  three,  determine  the  streamline  coordinates  and 
the  thermodynamic  conditions  at  station  one  and  compute  the 
3<J>/3z  and  the  3i^/3r  at  station  three.  Exit  the  subroutine. 

7.  Subroutine  DUCT 

Subroutine  DUCT  determines  the  values  of  temperature, 
pressure,  and  density  for  the  elemental  nodes  at  stations  two 
and  three.  An  iterative  procedure  is  used  with  the  knowledge 
that  angular  momentum  is  a  constant  in  a  duct.  The  initial 
estimate  of  the  velocity  at  station  1  is  made  using  the  com¬ 
puted  values  of  3i|</3z,  3i(i/3r,  r,  and  b  at  the  node  (Subrou¬ 
tine  SLINE)  and  by  choosing  the  estimate  of  the  density  at 
the  node  to  be  equal  to  the  density  at  station  1 .  The  fol¬ 
lowing  sequence  of  calculations  is  repeated  until  convergence 
on  a  value  of  the  exit  velocity: 

Vm2  *  (l/(P2r2b2n  *  [(3^/9z2)2  +  0«l»/3r2)2] 

“2  *  tan'1[(rlVmltan  0ll,/(r2Vm2»] 

T2  *  Tt1  -  (y-1)/2  *  (Vm22(l  +  tan2  a2))  /(yR  Gc) 

P2  »  PT1(T2/TT1)**(y/y-l) 
p2  *  p2/(rt2) 

Vm2n  *  (l/(p2r2b2n  *  [o^32^2  +  Ou//3r)  22]°*5 
Test  if  |v  -  V  - 1  <  e 


The  total  conditions  are  then  calculated  from  the  static 
conditions  and  the  computed  velocity. 

8.  Subroutine  ROTO 

Subroutine  ROTO  calculates  the  change  in  the  relative 
flow  angles,  the  velocity,  and  the  thermodynamic  properties 
along  a  streamline  across  a  (compressor)  rotor  element.  The 
program  uses  the  conditions  at  station  one  and  the  location 
of  the  streamline  and  the  partial  derivatives  of  the  stream 
function  at  station  3,  all  of  which  were  calculated  in  sub¬ 
routine  SLINE.  The  relationships  in  subroutine  ROTO  are 
derived  from  cascade  correlations  and  known  property  rela¬ 
tionships  for  a  streamline  in  a  rotor. 

The  first  step  is  the  calculation  of  the  inlet  and 
exit  relative  flow  angles.  For  inlet  flow  without  swirl, 
the  relative  inlet  flow  angle  can  be  calculated  using 

81  *  tan'1(VVml> 

The  incidence  angle  is  calculated  using  the  known  blade 
geometry  and  inlet  angle,  since 


where  is  the  angle  formed  between  the  tangent  to  the  blade 
chordline  and  the  axial  direction.  In  order  to  calculate  the 
exit  relative  flow  angle  one  must  determine  the  deviation 
angle,  <$  .  The  program  uses  the  correlations  and  equations 


derived  by  NASA  (Ref.  21] .  The  specific  sequence  of  equa¬ 
tions  ,  using  the  notation  of  Ref.  21,  is  as  follows: 


i 


C 


f  (M,r) 


X2D 

xref 


(Ki>t(Ki)  SI^VlO  +  n* 

X2D  +  (XC  "  12D ) 

(Kfi  )t(K5  )SH(<S0^  10  +  *  +  i2D^dfi  2D 


5C  “  52D  *  f(MR'r) 

6  ref  *  5  2D  +(6C  "  62d) 

5  *  5  ref  +  (i  “  Lref]  (dS  /di) 
02  *  81  “  $  _i  +  5 
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The  expressions  used  to  approximate  the  NASA  correlation 
curves  were  those  obtained  by  Crouse  of  NASA  lewis  and  were 
provided  to  the  author  by  Okiishi  [Ref.  22] . 

When  the  inlet  conditions  and  relative  flow  angles 
are  known  it  is  possible  to  determine  the  conditions  at  the 
rotor  element  exit.  The  initial  exit  velocity  is  obtained 
in  the  same  way  as  in  subroutine  DUCT.  The  following  se¬ 
quence  of  equations  is  solved  iteratively  until  convergence 
for  the  exit  velocity  is  reached: 

a2  ■  tan'1['“r2  -  Vm2  tan  02)/Vm2] 

D  -  1  -  (W2/W1)  +  (rxWul  -  r2Wu2)/(2  W^) 

u>  ■  curve  fit  to  aj(D,cos  8, a) 


TE1  ■  TR1  +  “2(r22  "  r^) /constant 


PE1  *  Pt1(Te1/Tt1)My/y-D 


PR1  *  fT1(TR1/TT1)*(Y/Y-l) 


PE2  “  PE1  "  “(PR1  "  Pl* 


M2  "  Vm2/cos  S2 


T2  3  TE1  -  W2  /constant 


p2  »  pe2(t2/te1)My/y-1) 


P2  *  P2/(RT2) 


V 


mm 


(1/ <P2r2b2) )  *  [(3*/3z)22  +  0^/3r)22] 


0.5 


Test  if  Vmin  ‘  Vm2 1  <  E 


When  convergence  is  reached  the  total  conditions  are  calcu¬ 
lated  from  the  static  conditions  and  the  computed  velocity. 
The  value  of  the  entropy  change  is  calculated  by: 


S  *  R  ln(PT2/PT1)  *  constant 


9 .  Subroutine  STAT 

Subroutine  STAT  calculates  the  stator  element  exit 
absolute  flow  angle  and  thermodynamic  conditions  using  the 
knowledge  that  the  total  enthalpy  is  a  constant  across  the 
stator.  The  initial  estimate  of  the  exit  velocity  is  ob¬ 
tained  in  the  same  way  as  in  subroutine  DUCT.  The  following 
sequence  of  equations  is  used  until  convergence  for  the  exit 
velocity  is  reached: 


V1  -  LVml"(1  +  tan2°l»]' 


D  -  1  -  (V2/Vx)  +  (rxVul  -  r2vu2)/(2avr) 
w  =  curve  fit  to  oj(D,cos  8,  a) 

PT2  *  PT1  "  “*PT1  "  Pl) 

T2  -  TT1  -  (y-D/2  *  (Vm22(l  +  tan2  2))/(yRG) 
P2  3  Pt2(T2/Tt2)**(y/y-1) 
p2  *  p2/(rt2) 

Vmin  “  (l/(P2r2b2))*  [(34,/3z)22  +  0^/3r)  22]° 
Test  if  |Vm.n  -  Va2|  <  £ 


When  convergence  is  reached  the  total  conditions  are  calcu¬ 
lated  from  the  static  conditions  and  the  computed  velocity. 
The  value  of  the  entropy  change  is  calculated  by  the  same 
method  used  by  subroutine  ROTO. 

10 .  Subroutine  FCAL 

I 

Subroutine  FCAL  uses  the  previously  computed  distri¬ 
butions  of  total  temperature,  entropy,  enthalpy,  axial  velo¬ 
city,  and  tangential  velocity  to  compute  the  right-hand  side 
vector  for  the  global  system  of  equations.  In  the  absolute 
frame  of  reference,  f(r,z)  can  be  expressed  in  the  form 


f(r,z)  «  (1/v)  T(3s/3r)  -  3H/3r  +  (V  /r)  (3(rV  )/3r)  (20) 

z  u  u 

The  value  of  f(r,z)  within  an  element  is  determined  using 

the  following  relationships: 
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n 

T(z,r)  =  l  N±  (C,n)Ti 
i 

n 

s (z,r)  *  J  Ni(C/n)si 
n 

V(z  ,r)  *  l  N.(C,n)Vi 


n 

H (z ,r)  *  l  ^(€,0)^ 
i 

n 

V(z,r)  =  l  Ni(C,n)Vi 
n 

r  -  l  Ni(C»n)ri 
i 


where  the  value  of  N^(5,n)  is  determined  by  the  value  of  £ 
and  n  for  a  specified  Gaussian  integration  point  within  the 
element.  The  required  partial  derivatives  are  found  in  a 
simple  and  direct  way.  To  illustrate,  the  (3H/3r)  is  de¬ 
rived  as  follows: 

n 

H(z,r)  =  l  NiHi 
n  n 

(3H/3r)=J  (3Ni/3r)Hi  +  \  l^OH^r) 

and  since  is  a  constant  then 

n 

3H/3r  =  l  (3Ni/3r)Hi 

where  ON^/Sr)  is  found  by  Sq.  (37) ,  and  is  the  appro¬ 
priate  nodal  value  of  H.  The  radial  variations  in  entropy 
and  angular  momentum  are  found  in  the  same  manner.  The  same 
procedure  is  followed  for  the  values  of  rothalpy  and  relative 
tangential  velocity  for  rotor  elements. 


It  is  now  possible  to  calculate  the  quantities  in 
the  expression  for  the  right-hand  side  vector  at  a  point. 
All  that  remains  is  to  apply  an  integration  technique  to 


obtain  the  value  over  an  element  and  to  assemble  the  re¬ 
sulting  local  contributions  into  the  global  equations.  As 
shown  in  section  III.D.2,  the  local  contribution  for  node  i 
in  an  element  can  be  expressed  as: 


In  the  program  Eq.  (47)  is  modified  to 

£*  -  K  h  Kf*|j| 

where  the  Gaussian  abscissas  and  the  corresponding  product 
of  the  weight  functions  are  grouped  into  three  one-dimensional 
arrays.  At  the  completion  of  the  summing  process,  the  local 
contribution  for  f  has  been  calculated  for  each  node  in  the 
element.  The  global  system  is  then  updated  by  adding  the 
local  contributions  to  the  global  values  through  the  use  of 
the  connectivity  relationships. 

The  following  is  the  subroutine's  algorithm  in  out¬ 
line  form: 

Algorithm: 

Iterate  for  each  element  in  the  mesh. 

Iterate  for  each  Gaussian  point. 

Find  shape  functions,  j j| ,  and 

Find  V2,  Tt,  Vu,  r,  rVu,  (3s/3r),  and  (3H/3r). 

Compute  the  contributions  of  the  value  f  at  the  Gauss 
point  to  the  value  of  f  at  each  node  of  the  element. 


63 


Upon  completion  of  the  Gaussian  integration,  add  the 
local  contribution  to  the  global  system. 

END 

The  same  algorithm  is  followed  for  rotor  elements  with  the 

appropriate  substitutions  of  H_  and  W  . 

K  U 

11.  Subroutine  STIFF 

Subroutine  STIFF  uses  the  computed  distributions  of 
density  and  blockage  factors  to  form  the  stiffness  matrix 
for  the  global  system  of  equations.  It  was  shown  earlier 
that  the  contribution  to  the  elemental  stiffness  is  expressed 
as 

k®.  *  Jk(r,z)  [  (3N./3r)  (3N./3r)  +  (3N./9z)  ON./9z)]dfi  (31a) 
13  E  3  1  .  3  1 

where  k(r,z)  «  (1/prb)  (19) 

Again,  the  elemental  properties  are  considered  to  have  a 
polynomial  variation  of  the  form 

n  n  n 

p(z,r)  -  jNiPi,  ri  =  jNiri,  and  b(z,r)  = 

As  shown  earlier,  Eq.  (31a)  can  be  converted  by  the  Gauss- 
Legendre  method  to 

-  liVi  SV|»IIB|T|B|)|J|  (46) 

kil  K  *  m  m  m 

The  value  of  km  is  determined  from  the  definitions  of  p,  b, 
and  r  by  the  same  methods  used  in  subroutine  FCAL.  The 
evaluation  of  [B]  [B]  is  a  simple  matter  to  perform.  The 


matrix  [B]  is  simply  the  column  vector  {(3ir/3z),  (3lT/3r)}. 
Therefore,  [B]T[B]  can  be  written  [  ( 3N^/3r)  ( 3N ^ / 3r)  + 

(3N./3z)  (3N./3z) ] .  The  value  of  (3N./3z)  and  (3N./3r)  is 

i  J  i»  <!• 

found  for  all  nodes  in  the  element  in  one  step  through  the 
use  of  subroutine  JACOB.  The  matrix  product  can  be  evaluated 
at  a  point  (z,r)  as 

n  n 

l  l  [  <3N./3r)  (3N./3r)  +  ( 3N±/  3z)  ( 3N  .  /  3z)  ] 

i  j  J  J 

By  using  the  same  Gaussian  weighting  scheme  used  in  subrou¬ 
tine  FCAL,  Eq.  (46)  may  be  written  in  the  form 

9  n  nn 

kT.  =  lN.k.n[(3N./3r)  (3N./3r)  +  (3N- /3z)  (3N  ./3z)  ]  J  j| 

13  k  «■  ij  3  3 

The  resulting  8x8  elemental  matrix  is  then  added  to  the 
global  stiffness  matrix  through  the  connectivity  relationships 
Up  to  this  point  [K]  and  {f}  have  been  assembled  with 
out  regard  to  the  boundary  conditions  except  at  the  exit  plane 
where  the  (3^/3n)  =  0  was  enforced  explicitly  during  the  pro¬ 
cedures  used  by  Subroutine  DIST.  Care  must  o_  taken  to  en¬ 
sure  that  the  boundary  conditions  for  the  other  three  segments 
of  the  boundary  are  not  violated.  As  shown  in  section  III.B, 
the  boundary  condition  for  the  nodes  along  the  shroud,  along 
the  hub  and  at  the  inlet  plane  of  the  machine  is  that  the 
value  of  ij;  is  specified.  If  the  value  of  y  is  specified  at 
these  locations  the  Eq.  (32)  must  be  modified  so  that  ^  is 
no  longer  free  at  these  nodes.  A  standard  technique  is 
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employed  to  remove  individual  equations  from  a  system  of 
equations  when  the  degree  of  freedom  represented  by  the  in¬ 
dividual  equations  has  been  removed. 

The  following  is  the  subroutine's  algorithm  in  out¬ 
line  form: 

Algorithm: 

Iterate  for  each  element  in  the  mesh. 

Iterate  for  each  Gaussian  point. 

Find  shape  functions,  | J | ,  and  [J]”  . 

Find  the  value  of  k  at  the  Gauss  point. 

Compute  the  elemental  stiffness  matrix. 

Upon  completion  of  the  Gaussian  integration,  add  the 
local  contribution  to  the  global  system. 

Upon  completion  of  the  addition  of  the  last  element's 
contribution,  modify  the  system  of  equations  to  include 
the  boundary  conditions. 

END 

12 .  Subroutine  DSIMQ 

Subroutine  DSIMQ  is  a  non-IMSL  library,  double  pre¬ 
cision  subroutine  that  solves  a  set  of  n  simultaneous  equa¬ 
tions  of  the  form 

[A] {X}  *  {B} 

where  [A]  is  an  nxn  matrix 

{X}  and  {B}  are  nxl  vectors. 

13 .  Subroutine  REP LA 

Subroutine  REPLA  places  the  solution  vector  obtained 
from  subroutine  DSIMQ  into  its  proper  storage  location. 


14 .  Subroutine  TEST 

Subroutine  TEST  determines  the  maximum  difference 
in  the  assumed  nodal  distribution  of  the  stream  function  at 
the  beginning  of  an  iteration  to  the  solution  of  the  radial 
equilibrium  equation  calculated  using  the  assumed  distribu¬ 
tion.  The  difference  in  the  distributions  at  a  node  is  de¬ 
fined  as 

«*«- 1  [Kn  -  iin+1)An+1] 

where  is  the  assumed  value  at  node  i  and  is  the 

calculated  value  for  node  i.  Convergence  is  considered  to 
be  reached  when  the  maximum  difference  for  any  node  is  less 
than  a  selected  reference  value,  e. 

15.  Subroutine  RELAX 

Subroutine  RELAX  performs  the  relaxation  scheme  to 
obtain  an  updated  estimate  of  the  stream  function  distribu¬ 
tion  for  the  next  program  iteration.  The  new  estimate  for 
stream  function  distribution  is  calculated  as  follows: 

'f'in+1  =  +  a[^in+1  "  '^in]  (4 

16 .  Subroutine  NOCON 

Subroutine  NOCON  prepares  the  program  for  the  next 
iteration  by  setting  the  elements  of  the  right-hand  side 
vector,  {f},  and  the  stiffness  matrix,  [K] ,  equal  to  zero. 
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Subroutine  OUTPUT  prints  the  computed  nodal  values 
of  a  majority  of  the  velocities  and  thermodynamic  properties. 
A  listing  of  the  values  that  are  printed  and  the  correspond¬ 
ing  units  is  contained  in  Appendix  D.  A  sample  output  list¬ 
ing  is  contained  in  Appendix  G. 

18 .  Subroutine  MPLOT 

Subroutine  MPLOT  uses  the  Tektronix  618  terminal  to 
make  an  online  graphical  presentation  of  selected  variables 
at  the  rotor  inlet,  rotor  outlet,  stator  inlet  and  the  stator 
outlet.  Figures  7  through  20  provide  examples  of  the  plots 
available  for  display  to  the  individual  on  request.  The 
user  is  given  the  option  of  terminating  the  plotting  sequence 
at  any  stage  of  the  presentation  through  the  use  of  inter¬ 
active  prompts. 

The  following  is  the  subroutine's  algorithm  in  out¬ 
line  form: 

Algorithm: 

Convert  the  appropriate  variables  to  Real  4  for  compati¬ 
bility  with  the  library  plotting  package  GRAFF. 

Determine  the  values  of  axial  velocity,  relative  flow 
angles,  total-to-total  pressure  ratio,  and  the  adiabatic 
efficiency  for  the  rotor  inlet,  display  if  requested. 

Determine  the  values  of  axial  velocity,  and  relative, 
absolute,  and  deviation  angles  for  the  rotor  exit,  display 
if  requested. 

Determine  the  values  of  axial  velocity,  absolute  flow 
angles,  and  total-to-total  pressure  ratio  for  the  stator 
inlet,  display  if  requested. 


Determine  the  values  of  axial  velocity,  and  absolute  and 
deviation  angles  for  the  stator  exit,  display  if  requested. 

END 

19.  Subroutine  SHAPE 

Subroutine  SHAPE  calculates  the  eight  nodal  shape 
functions  for  a  given  point  (£,n).  The  equations  for  the 
nodal  shape  functions  are: 

N ( 1 )  =  (5n  +  £2  +  n2  +  £2n  +  £n2  -  l)/4 

N (2)  -  (1  +  n  -  £2  -  £2n)/2 

n (3)  =  <-5n  +  £2  +  n2  +  £2n  -  €n2  -  l)/4 

N (4)  -  (1  -  n2  -  €  +  £n2)/2 

N (5)  *  <5n  +  £2  +  n2  -  £2n  -  £n2  -  l)/4 

n (6)  *  (1  -  n  -  C2  +  £n2)/2 

N (7)  =  <-£n  +  £2  +  n2  -  £2n  +  £n2  -  l)/4 

N (8)  =  (1  -  -i2  +  c  -  ?n2  -  D/2 

The  values  of  the  shape  functions  are  stored  in  the  array 
SF,  and  are  returned  to  the  calling  portion  of  the  program. 

20 .  Subroutine  JACOB 

Subroutine  JACOB  computes  the  partial  derivatives 
of  the  shape  functions  with  respect  to  £  and  n  and  computes 
the  elements  of  the  Jacobian  matrix,  [J] ,  for  a  specific 
point  (£,n) .  The  equations  for  the  partial  derivatives  were 
obtained  directly  from  the  differentiation  of  the  functions 
shown  in  the  description  of  subroutine  SHAPE.  The  arrays  D 


and  E  store  the  values  of  the  (3N/3?)  and  (3N/3n)  respective¬ 
ly.  The  Jacobian  matrix  is  calculated  by  the  following  se¬ 
quence  of  equations: 

n 

JU,1)  =  (3z/35)  =  I  ON  /3£)z 

i  1  1 

n 

J<1,2)  *  Or/35)  *  l  ONi/35)ri 

i 

n 

J (2 , 1)  =  Oz/3n)  =  l  ONi/3n)zi 

n 

J (2 ,2)  *  Or/3n)  =  I  ON./3n)ri 

i 

Arrays  D  and  E  and  the  Jacobian  matrix  are  returned  to  the 
calling  location  in  the  program. 

21 .  Subroutine  ERR1 

Subroutine  ERR1  is  called  by  subroutine  INPUT  if  the 
storage  limitation  for  Real  8  variables  has  been  exceeded. 

The  subroutine  displays  the  amount  by  which  the  limitation 
was  exceeded  and  terminates  the  program's  execution.  The 
user  response  would  be  to  increase  the  value  of  LIMR  if  pos¬ 
sible  or  reduce  the  size  of  the  mesh. 

22.  Subroutine  ERR2 

Subroutine  ERR2  is  called  by  subroutine  INPUT  if  the 
storage  limitation  for  Real  4  variables  has  been  exceeded. 

The  subroutine  displays  the  amount  by  which  the  limitation 
was  exceeded  and  terminates  the  program's  execution.  The 


user  response  would  be  to  increase  the  value  of  LIM4  if  pos¬ 
sible  or  reduce  the  size  of  the  mesh. 

23.  Subroutine  ERR3 

Subroutine  ERR3  is  called  by  subroutine  INPUT  if  the 
storage  limitation  for  Integer  4  variables  has  been  exceeded. 
The  subroutine  displays  the  amount  by  which  the  limitation 
was  exceeded  and  terminates  the  program's  execution.  The 
user  response  would  be  to  increase  the  value  of  LIMI  if  pos¬ 
sible  or  reduce  the  size  of  the  mesh. 


VI.  RESULTS  AND  DISCUSSION 

A.  PROGRAM  VERIFICATION 

Four  operating  conditions  of  the  NASA  TASK-1  compressor 
were  used  to  test  the  capabilities  of  the  programs  MESHGEN 
and  TURBO.  In  all  cases  the  63  element,  222  node  mesh  with 
an  under-relaxation  factor  of  0.24  as  recommended  by  Hirsch 
and  Warzee  [Ref.  4]  were  used.  Selected  portions  of  the  re¬ 
sults  obtained  are  presented  in  Figs.  7  through  76.  The 
points  annotated  as  "observed  values"  were  obtained  from  the 
material  published  in  Refs.  23  and  24.  The  values  attributed 
to  Gavito  were  obtained  from  Ref.  8  and  those  attributed  to 
Hirsch  from  Ref.  4.  A  discussion  of  the  predictions  for  the 
various  conditions  are  presented  in  the  sections  that  follow. 

1 .  Test  Case  1 

For  test  case  1  the  operating  point  was  defined  as  a 
rotor  speed  of  50%  design  speed  and  an  inlet  mass  flow  rate 
of  107.6  lbm/sec.  The  author  was  unable  to  locate  this  spe¬ 
cific  operating  point  in  Ref.  23  or  24  and  must  assume  that 
in  Ref.  4  the  mass  flow  rate  was  modified  to  conform  to  the 
end-wall  boundary  layer  scheme  described  in  that  reference. 
Therefore,  it  was  necessary  to  use  the  observed  values  pub¬ 
lished  by  Hirsch  and  Warzee  in  Figs.  21  through  30.  The 
relative  differences  found  between  the  present  predictions 
and  the  reported  observations  are  given  in  Table  1. 
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a.  Comparison  to  the  Work  of  Gavito 

Figures  21,  22,  23  and  24  compare  the  results 
obtained  by  Gavito  with  the  predictions  of  the  present  pro¬ 
gram.  A  significant  improvement  has  been  obtained  at  all  lo¬ 
cations.  That  this  was  possible  was  due  in  large  measure  to 
the  solid  foundation  to  the  present  work  provided  by  Gavito' s 
program  and  to  the  excellent  documentation  given  in  Ref.  8. 

b.  Comparison  to  the  Work  of  Hirsch  and  Warzee 

The  predictions  of  the  program  TURBO  compare 

quite  faborably  with  those  of  Hirsch  and  Warzee.  As  shown 
in  Figs.  25,  26,  29  and  30  the  predictions  of  the  two  pro¬ 
grams  have  almost  identical  average  relative  errors  for  the 
velocity  profiles.  The  predictions  of  Hirsch  and  Warzee 
tend  to  have  better  agreement  in  the  rotor  and  stator  tip 
regions,  while  the  program  TURBO  has  slightly  better  agree¬ 
ment  near  the  hub.  The  program  TURBO'S  predictions  had  a 
3.7%  and  2.5%  average  error  at  the  rotor  inlet  and  exit  re¬ 
spectively  with  a  maximum  error  of  4.6%  at  the  inlet  and  7.0% 
at  the  outlet.  The  stator  inlet  velocity  predictions  had  an 
average  relative  error  of  2.6%  and  maximum  error  of  5.8%  and 
the  outlet  predictions  had  a  2.0%  average  error  with  a  maxi¬ 
mum  error  of  6.0%.  The  prediction  of  both  programs  for  the 
velocity  profiles  show  excellent  agreement  with  the  observed 
values. 

Hirsch  and  Warzee' s  program  consistently  produced 
flow  angle  predictions  with  closer  agreement  to  the  observed 
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values  for  the  published  rotor  outlet  angles.  Though  the  two 
programs  had  the  same  average  errors  of  3.3°  for  the  rela\  ,ve 
flow  angles  and  4.8°  for  the  absolute  flow  angles,  Hirsch  and 
Warzee's  program  provided  better  qualitative  distributions. 
The  difference  is  clearly  shown  in  Figs.  27  and  28. 

Hirsch  and  Warzee  did  not  publish  predictions  of 
total  pressure  ratios  or  adiabatic  efficiencies,  so  the  pre¬ 
dictions  made  by  TURBO  for  these  parameters  were  not  pre¬ 
sented.  It  is  assumed  that  no  significant  differences  could 
have  occurred  because  of  the  similarity  of  the  results  for 
the  velocity  profile  and  flow  angles  discussed  earlier. 

2 .  Test  Case  2 

Because  of  the  apparent  modification  in  the  mass  flow 
rate  which  was  assumed  in  test  case  1  and  the  lack  of  compara¬ 
tive  data  for  all  quantities  predicted  by  the  program  TURBO, 
another  operating  point  at  50%  design  speed  was  compared. 

The  operating  condition  for  case  2  was  defined  as  a  mass  flow 
rate  of  114.7  lbm/sec  at  a  speed  equal  to  50%  of  design, 
which  corresponded  to  reading  38  of  Ref.  24.  The  results  for 
case  2  are  presented  in  Figs.  31  through  44,  and  a  summary 
of  the  relative  differences  between  the  predictions  and  ob¬ 
servations  is  contained  in  Table  2. 

3 .  Test  Case  3 

Test  case  3  corresponded  to  reading  45  of  Ref.  24, 
which  was  defined  as  a  speed  equal  to  70%  design  and  a  mass 
flow  rate  of  151.55  lbm/sec.  When  reviewing  the  results 


presented  for  this  case,  one  should  note  the  decline  in  the 
agreement  between  the  program's  predictions  and  the  observed 
values.  It  is  the  author's  opinion  that  the  degradation  is 
primarily  caused  by  two  factors.  The  first  is  the  formula¬ 
tion  used  to  compute  the  meridional  velocity  change  across 
the  rotor  and  the  other  is  the  application  of  a  single  block¬ 
age  factor  to  all  nodes  to  account  for  the  end-wall  boundary 
layers.  Both  factors  are  much  more  significant  at  70%  design 
speed  than  they  were  at  50%.  At  70%  design  speed  the  rotor 
tip  relative  Mach  number  is  about  0.94.  This  would  require 
the  program  to  account  for  transonic  effects  at  the  tip. 
Second,  the  mass  flow  and  absolute  Mach  number  of  the  flow  in 
all  regions  is  significantly  higher  at  70%  design  speed. 
Therefore,  it  is  unlikely  that  a  single  blockage  factor  will 
work  satisfactorily  in  all  regions  of  the  machine.  It  is 
hoped  that  both  areas  will  be  addressed  in  any  future  work 
on  the  program. 

The  results  for  test  case  3  are  presented  in  Figs.  45 
through  58  with  the  corresponding  differences  between  the 
predictions  and  observations  summarized  in  Table  3. 

4 .  Test  Case  4 

The  operating  condition  of  test  case  4  was  at  80%  de¬ 
sign  speed  point  with  a  mass  flow  rate  of  174.54  lbm/sec, 
corresponding  to  reading  50  of  Ref.  24.  Figures  59  through 
72  and  Table  4  present  the  results  of  the  program's  predic¬ 
tions  and  comparisons  to  the  observed  values.  As  expected, 
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and  for  similar  reasons  to  those  cited  in  test  case  3,  the 
agreement  between  the  program's  predictions  and  observed 
values  is  significantly  poorer  than  any  of  the  three  previous 
cases. 

B.  POINTS  OF  INTEREST 

The  results  produced  by  the  program  are  highly  dependent 
on  the  value  of  the  general  blockage  factor  used  to  account 
for  the  end-wall  boundary  layers.  This  factor  influences 
both  the  quality,  in  terms  of  agreement  with  observations, 
and  the  stability  of  the  solution.  Figures  73  through  76 
show  the  axial  velocity  distributions  for  the  rotor  and  sta¬ 
tor  for  test  case  4  with  a  blockage  factor  of  9%  instead  of 
the  6%  factor  used  to  obtain  the  results  shown  in  Figs.  59 
through  72.  A  comparison  of  corresponding  velocity  profiles 
clearly  demonstrates  the  factor’s  pronounced  influence  on 
the  program's  solution.  The  general  blockage  factor  also  has 
a  strong  influence  on  the  program's  convergence  rate.  In 
some  cases  the  factor  can  cause  the  program  to  become  oscil¬ 
latory  or  even  divergent. 

For  the  low  speed  cases  of  50%  and  70%  design,  additional 
blockage  factors  had  to  be  applied  to  the  duct  element  be¬ 
tween  the  rotor  and  stator  tips  to  obtain  accurate  results. 

As  shown  in  the  program  listing  for  subroutine  INPUT  of  pro¬ 
gram  TURBO,  the  factors  used  for  50%  design  speed  were  much 
higher  than  the  factors  used  for  70%  design  speed  and  that 
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no  additional  factors  were  used  for  80%  design  speed.  A 
global  method  of  calculating  the  end-wall  blockage  factor 
must  be  incorporated  if  the  program  is  to  become  independent 
of  inputs  other  than  physical  constants. 

The  deterioration  of  the  program's  predictions  with  in¬ 
creasing  Mach  number  and  its  failure  to  run  for  test  cases 
with  strong  supersonic  relative  velocities  at  the  tip  demon¬ 
strate  the  need  to  provide  the  program  with  a  method  of 
handling  supersonic  relative  velocities.  Hirsch  and  Warzee 
[Ref.  15]  showed  a  method  of  extending  the  radial  equilibrium 
formulation  used  in  the  present  code  to  supersonic  flow. 

They  presented  comparisons  of  predictions  obtained  by  this 
method  to  observations  of  the  NASA  TASK-1  transonic  compres¬ 
sor  at  100%  design  speed.  The  results  were  impressive  and 
clearly  showed  that  the  method  is  valid  for  relative  velo¬ 
cities  in  excess  of  Mach  1.4.  It  is  strongly  recommended 
that  the  first  effort  at  improving  the  code  be  an  effort  to 
modify  TURBO  to  include  the  method  shown  in  Ref.  15. 


II.  CONCLUSIONS  AND  RECOMMENDATIONS 


A  computer  program  based  on  the  finite  element  technique 
has  been  developed  and  has  been  verified  satisfactorily  for 
computing  flows  through  subsonic  axial  flow  compressor 
stages.  Minor  modifications  have  been  suggested  to  allow 
transonic  stages  to  be  calculated. 

The  code  was  written  in  such  a  way  that  it  could  be 
readily  adapted  to  compute  either  turbines  or  compressors 
with  multiple  stages.  Before  such  extensions  are  attempted 
however,  the  following  specific  recommendations  are  made  to 
improve  the  present  compressor  code. 


A.  PROGRAM  MESHGEN 

1.  Incorporate  some  of  the  two-dimensional  techniques  of 
Adamek  [Ref.  25]  to  improve  the  efficiency  of  the 
code. 

2.  Review  the  code  to  find  improvements  in  storage  allo¬ 
cations  and  computational  efficiencies. 

3.  Modify  the  program  to  track  the  first  and  last  nodes 
of  the  rotor  and  stator  as  subscripted  variables  so 
that  the  program  can  be  used  to  generate  the  appro¬ 
priate  mesh  parameters  for  a  multi-stage  machine. 

4.  Convert  subroutine  MPLOT  to  the  DISPLA  system. 


B.  PROGRAM  TURBO 

1.  Incorporate  a  method  for  the  global  calculation  of  the 
blockage  and  losses  created  by  the  end-wall  boundary 


Convert  the  storage  of  [K]  and  the  solution  technique 
for  the  program  to  at  least  a  symmetric  banded  scheme 
or  if  possible  to  a  skyline  equivalent  scheme. 

Test  the  program  on  a  variety  of  machines  and  operating 
conditions . 

Obtain  expressions  that  approximate  the  NASA  correla¬ 
tion  curves  for  65-series  blading. 

Incorporate  methods  for  the  prediction  of  stall/surge. 

Take  advantage  of  the  modular  form  of  the  program  and 
include  a  variety  of  correlation  techniques  as  a  user 
selected  option. 

Review  the  program  for  improved  storage  and  computa¬ 
tional  techniques.  Specifically,  determine  ways  to 
take  fuller  advantage  of  the  dynamic  dimensioning 
scheme  [Ref.  16]  used  by  the  program. 

Convert  the  rotor  inlet  calculations  to  allow  the 
value  of  81  to  have  nonzero  values  so  that  the  program 
can  be  extended  to  multi-stage  analysis. 

Modify  the  use  of  the  values  of  the  beginning  nodes  of 
the  rotor  and  stator  to  subscripted  variables  so  that 
the  analysis  can  be  extended  to  multi-stage  machines. 

Convert  subroutine  MPLOT  to  the  DISPLA  system. 

Develop  iterative  schemes  for  calculating  the  flow 
angle,  the  velocity  distribution  changes  and  the 
thermodynamic  property  changes  across  a  turbine  rotor 
and  stator  for  inclusion  in  subroutines  ROTO  and  STAT. 
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TABLE  1 


Connectivity  Relationships  for  Figure  Three 


Element  Local  Node  Global 

Number  Number  Number 


Average 

Difference 


Maximum 

Difference 


Rotor  Inlet 


Axial  Velocity 

4.6% 

7.2% 

Relative  Angles 

1.5° 

3.1° 

Total  Pressure  Ratio 

0.7% 

1.4% 

Efficiencies 

4.3% 

11.4% 

Rotor  Outlet 

Axial  Velocity 

3.2% 

6.7% 

Relative  Angles 

1.6° 

2.8° 

Absolute  Angles 

1.5° 

4.2° 

Deviation  Angles 

2.2° 

3.0° 

Stator  Inlet 

Axial  Velocity 

3.4% 

6.8% 

Absolute  Angles 

2.5° 

4.2° 

Total  Pressure  Ratio 

0.3% 

1.2% 

Stator  Outlet 

Axial  Velocity 

1.7% 

5.7% 

Absolute  Angles 

0.6° 

1.5° 

Deviation  Angles  1.4° 


2.6° 


TABLE  3 


Comparison  of  Program  Predictions  with 

NASA  Task-1 

Compressor  Measurements 

at  70%  Design  Speed 

Average 

Difference 

Maximum 

Difference 

Rotor  Inlet 

Axial  Velocity 

4.8% 

7.4% 

Relative  Angles 

1.14° 

1.8° 

Total  Pressure  Ratio 

1.1% 

2.0% 

Efficiencies 

3.2% 

4.8% 

Rotor  Outlet 

Axial  Velocity 

4.1% 

7.4% 

Relative  Angles 

2.0° 

3.2° 

Absolute  Angles 

3.6° 

5.5° 

Deviation  Angles 

1.6° 

3.5° 

Stator  Inlet 

Axial  Velocity 

4.0% 

8.8% 

Absolute  Angles 

3.9° 

5.5° 

Total  Pressure  Ratio 

0.5% 

2.1% 

Stator  Outlet 

Axial  Velocity 

3.6% 

7.4% 

Absolute  Angles 

0.6° 

1.1° 

Deviation  Angles 

1.5° 

2.4° 

TABLE  4 


Comparison  of  Program  Predictions  with  NASA  Task-1 


Compressor  Measurements  at  80%  Design  Speed 


Average 

Difference 

Maximum 

Difference 

Rotor  Inlet 

Axial  Velocity 

7.9% 

11.4% 

Relative  Angles 

1.3° 

1.5° 

Total  Pressure  Ratio 

1.5% 

2.5% 

Efficiencies 

3.1% 

7.9% 

Rotor  Outlet 

Axial  Velocity 

6.6% 

8.9% 

Relative  Angles 

2.9° 

5.5° 

Absolute  Angles 

6.8° 

8.5° 

Deviation  Angles 

2.4° 

4.7° 

Stator  Inlet 

Axial  Velocity 

6.9% 

13.9% 

Absolute  Angles 

5.6° 

7.0° 

Total  Pressure  Ratio 

0.9% 

3.1% 

Stator  Outlet 

Axial  Velocity 

8.0% 

20.0% 

Absolute  Angles 

0.8° 

1.4° 

Deviation  Angles 

1.5° 

2.3° 

station  2 


Figure  2.  Nomenclature  of  an  Eight-Node  Element 


Figure  4.  Mapping  Relationships  from  the  C,n  to  the  z,r  Plane 


MESHGEN  Generated  Plot  of  the  222  Node  Mesh  Used  in 
the  Calculations  of  the  Meridional  Through-Flow 


Figure  8.  A  TURBO  Generated  Tektonix  618  Plot  of 
the  Rotor  Inlet  Relative  Flow  Angles 


-AD-A124  98?  FINITE  ELEMENT  PROGRAM  FOR  CALCULATING  FLOHS  IN  2/2 

TURBOMACHINES  WITH  RESULTS  FOR  NASA  TASK-1  COMPRESSOR 
<U>  NAVAL  POSTGRADUATE  SCHOOL  HONTEREV  CA  J  A  FERGUSON 
UNCLASSIFIED  OCT  82  F/G  28/4  NL 
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Figure  10.  A  TURBO  Generated  Tektonix  618  Plot  of  the  Adiabatic 
Efficiency  of  the  Rotor  vs  Inlet  Radius 


Figure  12.  A  TURBO  Generated  Tektonix  618  Plot  of 
the  Rotor  Outlet  Relative  Flow  Angles 


Figure  15.  A  TURBO  Generated  Tektonix  618  Plot 
of  the  Stator  Inlet  Axial  Velocity 


♦itotTg'fijwi 


the  Stator  Outlet  Absolute  Flow 


Figure  23.  Comparison  of  Predictions  to  Gavito  and  Observations 
for  Stator  Inlet  Axial  Velocity,  50%  Design 


arisen  of  Predictions  to  Gavito  and  Observations 
Stator  Outlet  Axial  Velocity,  50%  Design 


ROTOR  OUTLET 


Comparison  of  Predictions  to  Hirsch  and  Observations 
for  Rotor  Outlet  Axial  Velocity,  50%  Design 


arison  of  Predictions  to  Hirsch  and  Observations 
Stator  Inlet  Axial  Velocity,  50%  Design 


Figure  31.  Axial  Velocity  at  the  Rotor  Inlet,  50%  Design 


igure 


ROTOR 


Figure  33.  Total  Pressure  Ratio  of  the  Rotor,  50%  Design 


ROTOR 


Figure  34.  Adiabatic  Efficiency  of  the  Rotor,  50%  Design 


Les 


Les 


39.  Axial  Velocity  at  the  Stator  Inlet,  50%  Design 


STRTGR  INLET 


Figure  41.  Total  Pressure  Ratio  at  Stator  Inlet,  50%  Design 


Figure 


les 


at  Stator  Outlet,  50%  Design 


ROTOR 


Figure  45.  Axial  Velocity  at  the  Rotor  Inlet,  70%  Design 


ROTOR  INLET 


Figure  46.  Relative  Flow  Angles  at  Rotor  Inlet,  70%  Design 


ROTOR 


Figure  47.  Total  Pressure  Ratio 


Figure  49.  Axial  Veloc 


ROTOR  OUTLET 
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ROTOR  OUTLET 


Figure  51.  Absolute  Flow  Angles  at  Rotor  Outlet.  70%  Design 


ROTOR  OUTLET 


138 


Figure  52.  Deviation  Flow  Angles  at  Rotor  Outlet,  70%  Design 


STATOR  INLET 


Figure  53.  Axial  Velocity  at  the  Stator  Inlet,  70%  Design 


STATOR 
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Figure  55.  Total  Pressure  Ratio  at  Stator  Inlet,  70%  Design 


STATOR  OUTLET 


Figure  56.  Axial  Velocity  at  the  Stator  Outlet,  70%  Design 


STATOR  OUTLET 


Les 


Figure  59. 


ROTOR  INLET 
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Figure  60.  Relative  Flow  Angles  at  Rotor  Inlet,  80%  Design 


ROTOR  INLET 


Figure  61.  Total  Pressure  Ratio  of  the  Rotor,  80%  Design 


ROTOR 


Figure  62.  Adiabatic  Efficiency  of  the  Rotor,  80%  Design 


RQTOR  outlet 
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Figure  63.  Axial  Velocity  at  the  Rotor  Outlet,  80%  Design 


Figure  64.  Relative  Flow  Angles  at  Rotor  Outlet,  80%  Design 


Figure  66 
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Figure  67.  Axial  Velocity  at  the  Stator  Inlet,  80%  Design 


Figure  69.  Total  Pressure  Ratio  at  Stator  Inlet,  80%  Design 


Figure 


tlet 


Axial 


STATOR  OUTLET 
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APPENDIX  A 


STORAGE  ALLOCATION  FOR  THE  PROGRAM  MESHGEN 


The  following  list  of  pointers  and  variable  names  indi¬ 
cates  the  storage  location  of  the  first  value  of  the  corres 
ponding  array: 


REAL  8  Variables 

(Array 

R8) 

Pointer 

Array 

Array 

Name 

Name 

Contents 

J1 

XSE 

Z  Coordinates  of  the  Super 
Elements 

J2 

YSE 

R  Coordinates  of  the  Super 
Elements 

J3 

XXSE 

Temporary  Storage  of  the  Z 
Coordinates  of  the  Super 
Element  Subdivision 

J4 

YYSE 

Temporary  Storage  of  the  R 
Coordinates  of  the  Super 
Element  Subdivision 

J5 

ZC 

Z  Coordinates 

J6 

RC 

R  Coordinates 

J7 

PSI 

Stream  Function 

Jd 

B 

Blockage  Factor 

J9 

End  of  Stored  Values 

1  C  "5 


REAL  4  Variables  (Array  04) 


Pointer 

Name 

Array 

Name 

Ml 

OHZC 

M2 

OHRC 

M3 

OVZC 

M4 

OVRC 

M5 

0HZC1 

M6 

0HRC1 

M7 

OZC 

M8 

ORC 

M9 

INTEGER  4  Variables  (Array 

Pointer 

Name 

Array 

Name 

LI 

NSEC 

L2 

NTSE 

L3 

NTE 

L4 

NODE 

L5 

NBC 

L6 

Array 

Contents 

Z  Coordinates  of  Streamwise 
Element  Boundaries 

R  Coordinates  of  Streamwise 
Element  Boundaries 

Z  Coordinates  of  Transverse 
Element  Boundaries 

R  Coordinates  of  Transverse 
Element  Boundaries 

Z  Coordinates  of  Streamwise 
Element  Boundaries 

R  Coordinates  of  Streamwise 
Element  Boundaries 

Real  4  Z  Coordinates  of  Mesh 

Real  4  R  Coordinates  of  Mesh 

End  of  Stored  Values 

12) 

Array 

Contents 

Number  of  Columns  per  Super 
Element 

Super  Element  Type 
Element  Type  Identifier 
Connectivity  Matrix 
Boundary  Condition  Nodes 
End  of  Stored  Values 


APPENDIX  B 


LISTING  OF 

THE  OUTPUT  VARIABLES  FOR  THE 

PROGRAM  MESHGEN 

FORTRAN  Name 

Variable 

File 

ZC 

Z  Coordinate 

TMESH  DATA 

RC 

R  Coordinate 

TMESH  DATA 

B 

Blockage  Factor 

TMESH  DATA 

PRESS 

Inlet  Static 

Pressure 

FLUID  DATA 

PTOT 

Inlet  Total 

Pressure 

FLUID  DATA 

TEMP 

Inlet  Static 
Temperature 

FLUID  DATA 

TTOT 

Inlet  Total 

Temperature 

FLUID  DATA 

RHOSTA 

Inlet  Static 

Density 

FLUID  DATA 

RHOTT 

Inlet  Total 

Density 

FLUID  DATA 

WDOT 

Inlet  Mass  Flow 

FLUID  DATA 

CP 

Specific  Heat 

FLUID  DATA 

R 

Gas  Constant 

FLUID  DATA 

G 

FLUID  DATA 

RPM 

RPM 

FLUID  DATA 

VZI 

Inlet  Axial 

Velocity 

FLUID  DATA 

NODE 

Connectivity  Matrix 

NODE  DATA 

Element  Type  ID 


NTE 


NODE  DATA 


NBC 


BC  DATA 


Boundary  Nodes 
Where  i|«  Specified 

PSI  Stream  Function  STREAM  DATA 
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APPENDIX  C 


STORAGE  ALLOCATION  FOR  THE  PROGRAM  TURBO 


The  following  list  of  pointers  and  variable  names  indi¬ 
cates  the  storage  location  of  the  first  value  of  the  corres 
ponding  array: 


REAL  8  Variables 

(Array  R8) 

Pointer 

Array 

Array 

Name 

Name 

Contents 

NPl 

ZC 

Z  Coordinates 

NP2 

RC 

R  Coordinates 

NP3 

B 

Blockage  Factors 

NP4 

ALP 

Absolute  Flow  Angles 

NP5 

BE 

Relative  Flow  Angles 

NP6 

H 

Total  Enthalpy 

NP7 

HS 

Static  Enthalpy 

NP8 

VZ 

Axial  Velocity 

NP9 

VR 

Radial  Velocity 

NP10 

VU 

Absolute  Tangential  Velocity 

NP11 

WU 

Relative  Tangential  Velocity 

NP12 

PSI 

Current  Streamfunction  Values 

NPl  3 

PSIO 

Previous  Streamfunction  Value 

NP14 

F 

Right-hand  Side  Vector 

NPl  5 

RHS 

Temporary  Storage  for  F 

Static  Density 


NP16 


RHO 


NP17 


RHON 


Not  Used 


NP18 

WRL 

Angular  Momentum  Vector 

NP19 

ETA 

Adiabatic  Efficiencies 

NP20 

EM 

Stiffness  Matrix  Elements 

NP21 

DEVI 

Rotor/Stator  Deviation  Angles 

NP22 

PRAT 

Total-to-Total  Pressure  Ratio 

NP23 

TEMP 

Static  Temperature 

NP24 

TTOT 

Total  Temperature 

NP25 

PRESS 

Static  Pressure 

NP26 

PTOT 

Total  Pressure 

NP27 

RHOTT 

Total  Density 

NP28 

HR 

Rhothalpy 

NP29 

ENTROP 

Entropy 

NP30 

End  of  Stored  Values 

4  Variables 

(Array 

04) 

Pointer 

Array 

Array 

Name 

Name 

Contents 

NPOl 

OVEL 

Velocity  at  a  Given  Station 

NP02 

ORC 

R  Coordinates 

NP03 

OBE 

Relative  Flow  Angles 

NP04 

OALP 

Absolute  Flow  Angles 

NP05 

End  of  Stored  Values 

INTEGER  4  Variables  (Array  12) 

Pointer  Array  Array 

Name  Name  Contents 

tPIl  NFS  Nodes  for  F  Calculation 

PI2  NBC  Boundary  Nodes 

IPI3  NTE  Element  Type  Identifier 

!PI4  NODE  Connectivity  Matrix 

End  of  Stored  Values 


IPI 5 


APPENDIX  D 


LISTING  OF 

Listing  Name 
PSI 
VZ 
VR 
R 

DENSITY 

WRL 

HT 

VT 

WT 

HS 

TEMP 

TTOT 

PRESS 

PTOT 

RHOT 

ALPHA 

BETA 


THE  OUTPUT  VARIABLES  FOR  THE  PROGRAM  TURBO 


Variable 

Units 

Stream  Function 

lbm/ sec 

Axial  Velocity 

ft /sec 

Radial  Velocity 

ft/sec 

Radius 

inches 

Static  Density 

lbm/ ft3 

Angular  Momentum 

ftVsec 

Total  Enthalpy 

BTU/lbm 

Absolute  Tangential 
Velocity 

ft /sec 

Relative  Tangential 
Velocity 

ft/sec 

Static  Enthalpy 

BTU/lbm 

Static  Temperature 

°R 

Total  Temperature 

°R 

Static  Pressure 

psia 

Total  Pressure 

psia 

Total  Density 

lbm/ ft3 

Absolute  Flow  Angle 

Degrees 

Relative  Flow  Angle 

Degrees 

appendix  e 

LISTING  OF  THE  PROGRAM  MESHGEN 


FILE*  FESHCEN  FCRTRAN  At  NAVAL  PC'STGDAOLATe  SCHOOL 


♦  ♦ 

♦  ♦ 

♦  ♦ 

44 
44 
44 
44 
44 
44 
44 

4444444444444* 


IHt  PSCGFA4  FPCCUCGS  A  ScCtiNCUHP  “IGHT-NCOSD 
ISPPuP A4«TR  1C  Gvn  Cr  ARBITRARY  0!  M  ENSI  •_*fj  «  X  N  GIVEN 
TFC  CCFNEF  fCCFS  ^F  Tt-  =  MGSF'S  "SUPER  EL  cMFNTS", 

Pc.CCaAM  ALSO  rr7'aLTEt  AN  INITIAL  5T-GAM  FJMCTIfN 
C  I§TC  TPLT  ION,  TINGE*  TIAL  SLOCOGS  FACT';;.  S<  AMO  THE 
A  FFkJO  R  J  a  Te  IM.tT  CC.IOITICNS  NEEO  PC*  Tl-E  PP'";PAM  TUP 30 • 
m  pPOCRAM  :s  r  NL  Y  Ll.-TTE.)  t-v  The  S  °  AC  C  f LOCATED  in 
TNG  ASF/YS  PP,  C4,  I?  OR  /.4CMNS  L  I  M  I  7A  7 


44 
44 
44 
44 
44 
44 
44 
4  4 
44 
44 


c 

c 


c 

c 


c 

c 


,  _ IT  P.E4L*F<  A-G.P-ZI  ,  0  =  Al  *41.-0 

INTEGER *4  J*A  .'•PitNCfVClt  IC,*'R»  l.*l«l,  *N1,  PN2  ,  PM*  ,  MN*,  NSF2,  02 

INTEGs"**  IAN'S 

CC^f  M  /  IN T4 /  pH  ,44  1,MC,NC1»  IC 

CC44r‘l  /NCCUNT/  yfiC4,MPTwI  ,y\S  EC 

CCMON  /NCCJNT  /  N  N  tN'T'L  ♦  NOCL 1 »  NE*  N’5'  'JTC  *N$T  AT 

CCKHf  •;  /Npri  *;7  /  J  I,  J2,  J?  ,  ,  J6  ,  J  7  ,  .13,  j<5,  J  lj  ,  J  1 1  ,  J12  ,  J1  3  ,  J1  4  , 

1  L  1  ,L2  t  L3  »L« ,  L  S  *  L»;  t  vl  ,<*2,  ►  i  ,  44,  N5»  N6  * *7, 

CCPMfN  /F4A«/  (  5  OCCI 

CCMCM  /NFA7/  I‘(3-0C) 

CC44CN  /tf£<«/  CA ( 3 0 CO ) 

LI4R  «  «CCC 
L»4I  «  3C-3C 
LI44  *  2  CCC 

CALL  I  *1 1  7  1  ( ;4tt  C*2  .NCCL2  ,NS"  ,NSt  2,*0GT  ,PTCT  ,TT  CT  ,F  PM  ,  G,  S  ,  CP  ,  2MAX , 
124  IN,PMA>,PM  If.  ,  IANS  ) 

CALL  INPLTIP  *(  J I  >  ,5  EIJi)  ,  I  2(L1  I  .!  2(121  ,N21,NSS2  » NSE  *  4R  PI ,  N'2  ,1  I^o, 
IL  IM,L  1*4, IANS  I 

CALL  TMESMRM  Jl  )  ,F  2<.J2)  W  P<  J3  ),*  J(  J  «J  ,P  a(  J5)  ,R«M  J*>)  .IIMLi  I 
1, 12(L2)  ,I2(L2  »  ,MS32,NS  =  ,  !2,mpri,  UUS  ) 

CALL  CCNECU  2  (L?  )  ,12  <L3>,  1.2  {  IV  ),,JSF,  N2 ,0=  1.MR1T0  J.MPCTOS, 

INSTATE,  N57ATE  ,  UaSI 

CALL  INI12(R  £U<S  >  *12  (L4|  ,  I2IL5  »,PR(  J7  I  ,PhCSTA,  fmQTT  ,  TTCT ,  ROOT  , 
1PTCT»°R2S$»T  E4P,V2I  ,R,  CP,G,;-iSF  2,-'.F.  1  ,N2,NSE  ,M:  1  ,  I  AN?) 


IF  ( IANS . EC. 2  I  G07C  ICO 

CALL  TASKIIR  e<  J6I  ,F9(J13>  WISE?  ,4P  P’  ,  N2  »'I5CTC3,  NPOTOOiMST  AT  6, 
INSTATE ) 


IOC 

C 

SCO 


CALI  F  ILCSM  r'°.  (  J*  )  ,RE(  JM  ,  P3<  J  731  ^  i  (  J/l  ,  1 2  <  l  .4  )  ,  I  01  l?  I  .12  i  L?)  , 
IFFESt,  'P  1  f  T  ,T  =0  P  ,TTr,  T  HOST  A  ,  .'hLTT  ,V2  U  wO  JT  ,  *PS  C  »  ,P  .GWIK.j  TOF., 
2NSTAT3  ,NJ32,N«c,N2,y‘K  1,n::»  ,  IANS) 


NRITC(15,2C0  ) 

FCM47  <«X,  1  >CC  YCL  <*ANT  A  PICT  OF  ▼hE  MESH  ?»,/,* 
2  *  NT  •  I 


1 


Y;S 
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FEAOIlf,*)  T/NS 
I F < IANS.cC.2 )  GCTC  300 

CALI  “PLCTH*  (J5>  ,F  8CJ6)  ,Z**AX,ZM!N,RMAX,RMlN,r4<  'll)  ,C4(«2)  , 
1C  A  (M3  )  ,C*(V4)  ,C4|  NS)  ,<:4(J'6»,CMM7|  ,04  (MB  >  ,  12  ( 1 5  I ,  NSE2  .  MKF. .1 , 
2N2,NS2.NE  1,‘IC*,“*2) 


SUERCUTIVE  I.NIT1  {MFCW2  ,NCCL2  ,.NSE,  NSE  2.  WDUT,  PTQT  ,  TTCT  ,RPM  ,  G  ,  CP  , 
lZPAX.ZPTN.'Ml*  ,»''IN,IAMI 
IMPLICIT  PEAL*P(  P-Z)  .  Rc  At  *4( H) 

INTEGER**  K  ♦>R1,NC  ,NC1»  IC.MER  l.Ncl, PN1,MN2,MN3, MN4.NSE2.N2 
INTEGER**  TAGS 

CCPrrN  /  1  !\  T  4  /  VP  ,y- 1  ,NC,MCl,  IC 

CCPPQ't  /VC  CUNT/  V  h  "  v«i  ,MkOWl  ».MNS  cC 

CCVMCN  /NCCiJfT/  v  \  ,  N  2  ? L  »  NC  CL  l »  N e  »  *!R  3  TC  ,N  $ TA T 

CC  MEN  /MCI  r.T  /  Jl,  J2,  Ji  ,  J4f  Jf  ,JA  ,J7  ,J3,  JV.JiO.JiJ  ,J  12.J13,  Jl4, 
Ul.LZ.L  3  ,L4,L5,Lc,U  ,V2,M?  ,M4,V5,M:>,v7,MH,*o 
WP  ITC( 15  ,  !C  J  ) 

FCFMAT(5>,'  >  f  M  [  F  INLET  CONC I T IONS :  • . /,  •  MASS  FLCWilAM  PER  SEC) 
1  TCTAL  TEMPI  ■JLG  3  )  A \  )  T nr Al.  PHESSI PSI A)  •  /) 

R  E  4  0  (  If#*)  4  COT  »TTCT  .PT'.T 
WP I TC ( 15 ,110) 

FORMAT  15),*  >E  V  Tc  E  OPERATING  CCNSTAN TS  :  •  , / , •  PPM',/,*  RATir  r? 

I  SPECIFIC  RP4TS  ( GAM'A) • ,/. •  GAS  CONSTANT  R(FT-L3C/LPM-0FG  S)',/ 
2.*  SPECIFIC  R^T  CONSTANT  PRESSURE  CPC  eTJ/LBM- OEG  R)',/) 

READ!  15,0  RP",r,,R,CP 
m  f  ITE (15,120) 

FC  PMAT ( 5  > , '  CENTER  GRAPH  SCALING  CON  STANTS:*,/  ,•  Z  MAX',/,'  Z 
1M  IN  '  ,  /  ,  '  R  PAX',/,  •  R  Mir;'  ,/) 

PE/CIlf.O  2VAX, TVIN.AMAX.RMtN 
WRITE!  15.50 

FORMAT  t*A» •  >CC  YLJ  *4NT  TO  CREATE  A  NEW  MESH  ?',/,'  1  *  YES 

l  2  «  NO' 1 

FEA'.Ml!,*)  I  AN  * 
iFdANS.EC.i)  ccnr  1-R 

RE  ADI  25 ,130  N  V  ,V  PC*  ,NCCL » MRC*  1  ,NCOL  1 ,  NRCTfd.NST  ATS 
FCPmat ( 715) 

GCTC  201 
*>PITO  1  5  ,2C  J  ) 

FC  P^AT ( 5  >  ,  1  >CVT2?  NO  CF  SUPER  ELEMENTS  AND  NO  ELEMENT  ROWS',/) 
PE/CI15 ,*  >  -JSE  ,M*C* 

MRCv.1  *  :  *  y?.c*  ♦  l 
Pfll  *  M r  c  w  1  -  1 

PR  *  Mh  C  V 
MPCV.2  =  V?<3wl 
NCCL2  =  VCCL1 
NSE2  =  "«NSE  ♦  2 
Jl  =  1 

J2  *  Jl  *  NSE2 

J3  *  J  2  •»  NSR2 

LI  ■  1 

12  *  Ll  *  NS  F 

L2  «  L2  •»  NSE 

RETUPM 
ENC 


SLEPCUT  IV  E  I  f  9LTI  Xric,YSE,f)SEC,NTSE,NEl,NSE2,'!Sc  ,  MRR  1  ,N2  ,L  I  v  P , 
^ILIM  ,L!V4,IANS)^ 

♦  ♦  TUS  SUBROUTINE  OTAI'lS  THE  CISCRiPTICN  CF  THE  SUPER  ELEMENT  5  ♦  ♦ 

♦♦  ♦♦ 
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1NPLICI 7  FEAL*€(  i-H.P-ZI 

INTSOC-iaA  vu  ,MF  i.NC.NClt  IC.MRR  l,N  =  l,l»M,“N2.MN3,VN4.ASE2,M2 
JNTFGERaA  !  ANS 

CCMMC.N  /  1 N  T  4  /  !»0  fM<?l  .mc.NCI  ,!C 

CCM*ON  /MCC'INT/  •»Rr«*,'*KOWl,'*NSEC 

CCMMCN  /NCC'J.N  T  /  AA,ACCL,  NCCL1.  NE. 'JO')TC,*JSTAT 

CCMMON  /Nnf't  MT  /  0  1 ,  0  2 .  03  ,  J4  ,  Of  ,  Jo  ,  0  7  ,  Ji,  OF.  010  ,  Jll  ,  J12  ,  J1  3  ,  J1 4 , 
lLl.L2.L3.L4.LF.Lc  »  M  1 ,  ‘-1 2  »  *4  3  •  M  A  *  ?4  5  *  •’*,  '‘7,<3,*o 
CIMENSICN  XSE(l»  .YSEIIJ 

dimension  N32cm .nTsem 


IFUANS.EC.2I  GCTC  20 2 
NCIL  *  0 
0  «  1 

NSE22  »  NS22/2 
CC  ICO  l  «  l  ,NSC 22 
h»ITE(l'.lCn  I 
fcP  '*at('x,  •  >er.T=a  z  ,r 


fcf4at<«x,*  > enter  z.p  cnr/PO i*u te  fairs  fh*  station  *,I2/) 

FEAO(l*,*l  XSEI J) ,Y$E( OI.XSC  <J*’ >, YSEI O+l) 

J  «  J  4  2 
CONTINUE 

CC  2 CO  I  »  1 ,N$F 
N»IT  =  (  1E.2C1 »  I 

FCP*4  AT  ( eX«  •  >EMF1  TYPE  a  F  SUPER  ELEMENT  AND  THE  NO  OF  COLUMNS 
1GR  SLMER  ELEMENT  •  ,  12/ ) 

F  EAO  I  1!  .*  J  N7<£  < l )  ,.\iS5C<  11 
NCCL  »  NCOL  4  NSEC t I  ) 

CONTINUE 

NE  *  MPC*  *  NCCL 
NE1  «  NE 

NCCL 1  *  2  *  NCCL  ♦  1 


N N  *  NCCll  * 

N2  «  NN 
MRP  1  »  MFCNl 
J1  ■  1 

J2  *  01  4  NSE2 
03  *  J 2  4  NSE2 
OA  -  03  4  V3F1 

J«  «  J4  4  *P01 

oe  *  J5  ♦  N2 

07  a  0  4  4  N? 

Of  =  J7  4  N2 
OS  *  0<3  4  N2 
01C  #  IF  4  N2 
Oil  a  lie  ♦  N2 

012  a  0 1  1  4  »  2 

013  *  J I 2  ♦  V2 
Jl<  a  013  ♦  N2 

LI  a  l 

12  »  LI  4  NS  F 
L  3  *  L  2  4  NSE 
L A  a  l  3  4  *:1 
LS  a  LA  4  3*NF 
L«  a  L  5  4  NE  1 
Ml  a  1 

M2  a  Ml  4  NClL 
M  3  a  M  ’  4  \r.  ~  L 
MA  »  M3  4  ‘P~l 
MS  a  4  MH  F 1 
M«  a  M5  4  NCL 
M7  a  «<,  4  NCCL 
ME  *  *7  4  N2 

MS  a  M  9  4  N 2 

NE  XCR  a  livv  . 
N  C  >C  I  a  LI4I  - 
N  E  >C4  a  l  I  v4  - 
IF  (NEXT.?  .LT.u  I 
IF  (NEXCI  .L  C  ) 
I  F  (NEXf.4  .LT.  J  ) 


^ROv,  1 


NSE 
NSE 
’  =  1 
3a  NF  i 
NE  1 

NC  IL  1 
NO  Z  L  1 
'P  -  l 
MH  F  l 
NCr  L  1 
NCCL  1 
N2 


J 1 A 

L  1 
m  c 

f  'LL  f»»P.I  (VFXC?  I 
CHI  =->‘2(vFXCI) 
CAL'.  c<’i~  (NEXC  vi 


NF  I  Tc  (6  »3C0I  NEXO.NEXCI 


J 


nnrvnnnnnnn  non 
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20C  FCPPATI  1  CX ,'  PEPCFY  SPACE  AVAILAQLE  S  REAL  »,,I5,2X,‘  INTEGER  = 
1.I5///J 
FETUPN 
ENC 

SLEPf  UT  I  N5  TPESHOSE.YSE  .XXS  E  ,  YYS  5,Z  C  ,?C  ,  NSEC,  NT  SE,N7E, 

♦  ♦  THS  SLEFCUTINS  FPCnUC^S  4  RECTANGULAR  E IGHT-NQQED  ** 

♦  ♦  I SCPA°  ANrTR  I C  TP  TO  TP  4R<v[  T  *  A  f  Y  DIMENSION  M  X  N  GIVEN  *< 

TFE  CCFNE8  NCCES  JF  TFE  MESMS  "SUPER  ELEMENTS"  +< 


IMPLICIT  RP.\L*E(  i-H,F-Z) 

INTEGER**  VR  ,  *P  l  ,NC  , \C  1,  IC,WRP  l.NEl,  >M,  «N2  ,MN3  ,  ,*N4  ,NSE2 ,  N2 
INTEGER**  TANS 


c*  IPJTC.NSTAT 

.YYSE (1) , ZC  ( 1 1  ,  RC  ( 1 )  , B ( 1 1 

I 


IFU4MS.EC.il  GCTC  2G 
CC  11  I  *  I *1 

f  e ad ( 2c » 12 1  zcm.Fcm.am 

FrtMAT  (2E15.  HI 
CC  M  INUE 
GCTC  IOC 

YCIV1  a  FtrATU-RlI 
YCIV2  *  FLCAT( ??) 

I  *  l 
TJ  *  1 

II  *  1 
If  *  1 
nstat  *  c 

N  F  CTO  =  C 
CC  10  N  *  1,NN 
ZC ( M  I  a  J.OC 
SC(M  *  0  .CC 
CONTINUE 

CC  ICO  J  =  1  ,  N  SC 


ICO  J  =  1  *  N  SC 

iFu.ec.ii  coTc  uj 

IF  (  NT  S3  (J  J-NTSCI  J-U) 

IF f  IR.LT.  Z)  GET']  150 

NROTC  *  I  L 

I.M  *  (  -  if 

GrTCi  1 20 

NSTA  T  *  I L 

IM  ■  C  -  IM 

IT  a  NSEC (J  I  «  MRCW 

00  UC  L  =  1 ,  I  T 

N  T  f (  It  I  »  ' TSEIJI 
IL  »  IL  •*  1 
CENTIME 

Nfcnu  =  2  *  N  SEC ( J  I 
NT  1  *  NNCCLl 
NC  «  NCI  -  1 
XCIV1  a  FtCiUNCll 
X0IV2  »  c 1C  AT ( NC  I 
XI  a  ) SE(  I  I 
X2  a  >SE(  t  «  11 
X3  «  ><  =  <  I  ♦  2  I 

X4  a  ><  =  (  I  *  '■) 

Y 1  *  YSc(  I  I 
Y?  a  Y  S  r (  I  ♦  II 
Y3  »  >!c( I  ♦  21 


120 ,120, 140 
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Y4  a  > SE<  ! 
XCIF2  *  X  3 
XDIF3  *  X4 
YCIF2  =  Y 1 
YDIF3  «  Y2 

X INT  2  a  XC 

XINT3  *  XC 
YINT2  *  YD 
YIMT3  *  Y C 
ISEL  *  -1 


E(  I  ♦  3  » 
X  3  -  XI 
X4  -  >1 
Y  1  -  Y  3 
Y2  -  Y4 
X  0 1  F  2  / 
XCIF3  / 
YC1F2  / 
YCIF3  / 
-1 


XO!  V2 
X  0  I V  2 
XCI  V2 
XCI  V2 


YO  I V  2 
YOI  V2 


00  2CC  K  a  1 ,  N  C 1 
XC  IF1  a  >1  -  X  2 
YCIFi  a  Y la  Y I  -  Y2*Y2 
I F  ( I  SE  L  I  21C.213.220 
XINT1  a  XC1F1  /  YCIV1 
YIM1  a  YCIFI  /  YDIVl 
FRF  a  MSCwl 
GC7C  23C 

XIML  =  XLIF1  /  Y0IV2 
YINT1  =  YCIFI  /  Y0IV2 
FFR  a  YPC*  ♦  1 
DC  3C0  IC  *  1 .  MPB 
IC1  a  IC  -  l 

XXSE(IC)  =  XI  -  FLOAT  {IC  -  1 )  *X  I  N  T 1 
IF(IC.N-:.L)  GOTO  ?31 
YYS  £  (  IC  )  =  Y1 
GCTC  232 

YYSE(IC)  =  CSOPTIYYSE  (1CI)*YYSE(  IC1I  -  Y  INT  1 ) 

2C(  IJ  I  =  XX3E  ( IC  > 

pc  1 1 j  >  =  y  y  sc i:c> 

IJ  a  IJ  ♦  1 

CCMIN-JE 
XI  a  XI  *  X  TV  T  ? 

X2  *  X  2  ♦  >  IN T 3 
Y  1  *  Y 1  -  Y  IN  T  2 
Y2  a  Y2  -  YINT3 
ISEL  »  -IS2L 
CCNT  I  SUE 
ISEL  •  -I  SC  l 

ij  *  ij  -  from 

I  =  2<J  ♦  1 

CONTINUE 

V.B  ITO  *.*CC)  MRCa.NCOL 

FCF“AT(1CX,'  NL*F'ER  CF  ROWS  =  ',13,1  ex,  •  NUMB  E R  CP  COLUMNS  a 
1 .IE/) 

WRITOfc.MC)  NE.NN 

FCFYAT(S>,'  TC74L  NU^ER  CP  FL  EVENTS  *  '.Ih.IOX, 

1*  1CTAL  NLM3EP  CF  NCCES  a  «,[■*//> 

RETURN 


MFC*  ,NCCL 

NLMF  FR  OF  ROWS  = 


» Ih.IOX. 


SLFRPjT  T  N  6  CCN  EC  I  NT  S  S  ,N  T  5  ,NOCE  ,MSE,M  2  ,.NE  1  ,*'PnTQR  , ,\R0  TOE  ..'1ST  AT  A  , 
^^^lNSTlTS ,  I/NS|  + 

♦♦  ♦  ♦ 

*+  THIS  SUBROUTINE  PRODUCES  THE  CCNCCTlviTY  v^tpix  *■* 

♦  4  ♦  + 

IFFLICIT  3fAL*FU-H,P-2) 

INTEGER  *t  Y<  .FRl.NC  !C,F»R  1  ,NE1 ,  HI,  YN2.MN3  ,  ,NS E2..V2 

IMErcR*4  IANS 

CCvFr*i  /FCCUM/  - Q t» . M c r V»  1  ,  YNS  EC 

CCFM-O-  YNCCJNT/  '  ?  ,  NC^L,  NCCL  1 .  NE  ,  ‘-IRQ  TC  »N  STAT 

CCFFi.-J  / IN  T4  /  ,NC»N01,  IC 

OIYFr.SICN  -\3.)c(fi  i,  1)  ,NTSc(l)  ,NTZ  (IJ 

IF  (  IANS  .EC. 2  )  CCrC  <>21 

K  •  1 

FK  a  1 
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NFCTOP  * 

RFCTCF  * 

NSTATa  = 

NSTATE  * 

c  *1.00 

DC  AO  IC  *  l.NEl 

K1  »  l<  ♦  MSCW1  ♦  »?. CM  *■  1 

K2  *  Fl  -  PPCu  -  *  K 

K3  *  K 

K4  a  K  ♦  1 

K  5  *  K  +  2 

K6  =  K  2  ♦  1 

K7  «  M  *2 

K  8  *  K  1  *  l 

NODE  (  1C,1  1  *  <1 

NODE  (  1C  ,2  )  *  *2 

NODE  <  1C  ,?  )  *  K  2 

NCUE(  JC  *4  1  =  K  4 

NODE  <  1C  ,5  1  *  K5 

NCOS  <  IC  .0  I  *  k  * 

NQUEt  1C, 7  )  =  K7 
NODE  <  1C  ,8  )  *  K8 
K  =  K  ♦  2 
MK  *  FK  *•  1 

CO  *  FLOAT  (  KI/FLCATIPR) 
IFlDC.Nfc.  0)  GOTO  40 

K  a  K  4  MP  ♦  2 
MK  *  1 

C  =  C  ♦  l.OC 
CCFTtNUF 
V>FITE(6f<4) 

FC  FWA  T  (  •  1  *  I 
K  F ITF ( 6 , Fh  I 

IF(NCOTC.EO.  C.ANC..'4STAT.=3.0> 
IJK1  =  NFC70 
I « F2  *  FFCTij  ♦  NFCW  -  1 
1 JK2  =  N  5  T i ” 

IJK4  a  A  ST  AT  ♦  vRC-.  -  1 
A  PC  TO  1  *  i\ CD  ;  (  I JK 1 , i  I 
NPCTO?  *  NODE (  I  JR  2, 71 
N«f  iTR  *  NCDcl  UK  3,2  1 
N  S  T  ATE  *  NCDE  (  IJH  ,  7  1 


GOTO  bCO 


NPCTCr  *  NODE (I  JR 
N«f  iTR  *  NCDcl  1 JK 
N  $  T  ATE  *  NCDE  (  I  JK 

ccnti-jijc 

GCTC  40C 

CC  700  !  *  1  ,  AE 1 
RFA':(2C,7!0  ) 

L  NCC6»t  ,5  ),.\ 

FORMAT (?i 5  j 

ccrTTfios 

FETUTN 

ENC 


CTE(  I  ,1  1  ,'iCOS  (  T  ,  21  ,  N<*'2E<  I  ,  T)  ,  ‘!r  05  (  I  *-*  1  * 
CTEl  i  ,6  )  *  \’l!  CF  (  1,7),  NCOS  (  1 , 3  )  ,  ‘IT  5  (  I  ) 


SLE?RrUT  IRE  I  MT?(  RC.NCCE  ,‘I3C  ,PSI,  .-.HO  'TA,RHCTT,TTCT,«CC'‘,PT'''r, 

1  PRESS,  TEFF.VZ:  ,",C:J  ,:,<'-SE2,/P"l,  WISE  ,  4=1,1  V:S) 

4  +  444444444444444.444444444444  +  44444444444*44++44444444444444  4*444 

4* 

tfis  supfoutin:  cr''-,PUT=c  r-< :  i m_:t  crNoincss  ♦♦ 

ThfCUGF  7h'  t/S  r  (;F  Z'Jl-JUT:  ■ c  FL^FCT.  '-‘5  *♦ 


♦  ♦ 

*4  Th  IS  SLPFruTI N 

♦  ♦  THFCUGF  Th '  US 

*♦  SLEPUUTIT'  USE  C£  V- PM  ”1  e3  ' 

4+  WFEPfc  THE  VALGFS  OF  PS  1  V-E 

*4  TFE  S'JSC  CUT  IN  5  CC'P'JTFS 

■**  OF  THE  STfc  AM 

♦  ♦  AN C  THE  erur.OA 

♦  ♦ 

4*4  44  *  *44  44  ♦  *4444 ,444*44 


THE  STf^AM  FUNCTION  ESC'  THE 


HE  NED  i  NJM^=c? 

T  :  -2  SPECIF  I SJ. 
i‘lITlAL  p  I  ST  3  I  :V  I T  1  ■  D 


ANC  THE  8ruf  OA<T 


")ITI  "NS 


PS  OCR AM 


no  it  :r\r. 


444  ,44  444444444444  44+  i 
,44  44444  444  444  ,444  444, 


4  4 
4  4 
4  4 
4  4 
4  4 
4  4 

•444444  4 


IMPLICIT  RIAL* E<  „-H  ,P-Z) 

I N  T  E  Qc  II  *  4  VP  ,  *  P  1 ,  N  f  ,rCl,  t  C  »  v  PP 


VIE  l,  KM,VN2,MN3,  MN-i  ,'1$52.N2 


176 
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IMEGFP**  IANS 

CCMMCN  /bC.  C'JN'T/  JO-Ch  .MROV.I  .VNSEC 
CCMML'N  /NCPI*  T  /  N  N  ,  f.Cr>L*  \0.0L  l .  Ne » ‘IRQ  TC  .NSTAT 
CCNMON  /  IN T4  /  «R,VC1,NC,NL1,  IC 
CIPENSICN  PC U  )  ,P£i (1) 

C  I  NENS  I  C  N  .\OUEJNsl,l».N3Clll 

G  *  1.4CC 

R  *  5M2CC 

CC  *  32.17400 

IF  (IANS. EC. I  )  CCTC  10 

NN  EC  *  2  *  MCCL1  +  M^hl  -  2 

CC  700  I  =  l.NMC 

READ  (  25  *7  1C  )  NtC(I) 

71  C  FOR  *4  A  1  (  1 5  I 

70  C  CCMINUO 
GCTC  30C 

10  CC  ICO  I  *  l.MRRl 
NfiC  (  I  )  =  I 

IOC  ccntinuf 

MM  *  1 
MK  *  1 

K  =  MRR 1  ♦  1 
UK  *  K 

l  *  MR  r  l  ♦  1 
M  »  2  *  (NC3L 1  -  1)  ♦  K 
CC  200  J  s  K(u 

IFCMM.GT.O)  GCTQ  210 

NBC ( K  |  =  L 

K  =  K  +  l 

1*1+1 

MM  =  (  -  MM 

GCTO  2CC 

21 C  IF(MK.CT.O)  GCTC  220 

NRC(K)  =  L 
L  =  l  ♦  MRCW1  -  1 
MK  *  C  -  MK 
K  a  K  ♦  1 
MM  *  C  -  MM 
GOTO  2CC 

22C  N6C ( K  I  =  L 

L  *  L  +  MRCV. 

MK  *  C  -  MK 
K  =  K  ♦  1 
«H  *  C  -  MM 
2CC  CCMI'IUE 

K  =  mc ”  1  ♦  2  *  (NCGL1  -21  +  1 
JK  =  N2  -  ♦  1 

NEC ( K )  *  J 

N  9  C  ( K  +  1  >  =  N2 
20C  CC  MINUS 

GK1  *  0  -  1.00 
GM1I  =  l.CC  /  GM! 

PFLE2  =  fCIMCCV*!)  *  CCIMROWII 

A  R  F  A  =  2.1+15S265A  *  (  PCil)  *  ?C(1>  -  RHU  92 )  /  144.000 

CALL  FLCfCT(  *CCr.PTCT»  T7C7  *  r.  Hf.  7Tt  v  r  .7  T  *  X  V  £  L  *  C  ?  »  R  « G  M  l  *GVI  1  • 
1  A  F  F  A  ) 

CLAM  *  1.00  -  >\rl  ■»  X’.EL 

TEMP  =  TIC:  *  GUAM 

FRESS  =  fTCT  +  CL.  AT!T**  ( 0*0  +1  I) 

RFCSTA  *  kHOTT  *  G4AN7**GMl I 
V  2  I  =  VTCT  «  xV  =  L 
NC  *  MRCV1  -  1 

P  £  1 1  *  *CCT  /  <2.000  *  2.141592*5+) 

F S ID  *  FS  II  /  eLCAT  INC) 

J  *  0 

CC  5oO  I  =  1  .NC 

PSI I  1  I  *  PSI1  -  F  LC  AT ( J )  *  FS  I  0 
J  *  J  ♦  1 
500  CCNTINUC 

pjkmmcwd  =  o.coc  jccaooonoooo 

CC  600  I  =  l, Mil 
Ml  *  NOO  c  (1,1) 
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M2 
M3 
N 14 
N 1 5 
M6 
N  17 
NTS 
PSI (Nil) 

ps  n  n  12 1 

PSI  (  M3  ) 
PSIIM6) 
FS1 ( N  1 7  ) 
CCMlNUc 
RETURN 
ENC 


NCDEI  1,2 J 
NCDFl  I,? J 
NCDEI  I,4| 

NCO  C  I  1,5  ) 

Ncri  _  ( i.i1) 

NCO  £ (  1,7  ) 

N  CD  E  I  I ,  ?  > 

F'HNI?) 
fSIIM’1 
F S II M 4 l 
FSI  (M  5) 
F  S  I  CM  I  =  > 


SLBFOUT I N  E  EPPIINEXCM 
NEXCP  =  “NEXCP 
WP  IT C { 4  ,  ICC)  NEXCP 

FCPMAT ( '  EXCE2CE C  MAXIMUM  ALLOWABLE  SPACE  FOR  R  EAL  *8  VARIABLES  BY 
L '  ,  15// ( 

STCP 

ENC 


SUBROUTINE  EPR2INEXCI) 
NEXCI  =  -NEXC! 

WFITEIt,  .ICC)  NEXCI 
FCPVt,T(*  EXCCECEO  MAXIMUM 
1'  ,  15//  ) 

STCP 

ENC 


ALLOWABLE  SPACE  FOR  INiT*2  VARIABLES  BY 


<oc 


ICC 


ICO 


IOC 


c 
c 

£  SLEP^'JT  IN  E  TASKl(RC,B.NS  E2.-PA  1  ,'l  2,N  ROTCB  ,.\ROTCE  ,N!ST  A  TC  , "  S  T  ATF  1 

C  ♦+  +  + 

C  +♦  THIS  SLEPCLTINE  CC.MPUTFS  THE  TANGENTIAL  BLOCKAGE  +  + 

C  +♦  RAfTCsS  FOR  THE  PCTr.R  AMC  STATCR  JF  THC  NASA  1ASKI  +  + 

C  ♦  ♦  CCNFFESSCP.  +  + 

C++  ♦♦ 

C  ♦♦+44  +  ,4  +  *^*,,++  +  t,  +  ,+++,+  *+++++,  +  +  +  +  ++^4  +  +++^+  +  *+ V+  +  tn  + 
IMPLICIT  PEAL+EI A-H,P-Z> 

I  NTF0E-+4  Ml  ,M  F!  ,NC  ,  N  Cl,  I  C  ,  A1  ,1  El  ,  MN  1,  MN2»M\3»  -IN  4,  NS?  2,  *12 

CCMyf'N  /NCCUMT/  •'•kOv.+kOWI  ,.M\SEC 

CCNwr'i  /  N  C 1  iJ  n  t  /  NNfNC.*L,.\rrL  i  ,  f>  E  ,  NR  D  7C  ,M  STAT 

CCMMP’1  /  I N  T-4  /  NR, NHL, NC, NCI,  IC 

C Imfn sign  m  ,b ( l) 

IFIIAMS.EC.21  OCTr  700 
M  M  1  *  NRCTC3  ♦  M  r  CM  l  -  l 
MM<  «  mv  ]  ♦  J 
MM2  =  N  m  j  ♦  much 
MM4  *  M  M  2  ♦  l 
MM  5  =  NSUT3  ♦  MR  CV»  1  - 


SLFPOUTINE  CPR2(NEXC4I 
NEXC  A  =  -NCXC4 
WP  ITE  (  4 ,1CCI  N  R  XC  4 

FC  Fm  at  (  •  CXCcECEO  HA  XI  MUM  ALLOWABLE  SPACE  FOR  INT*4  VARIABLES  ?Y 
I*  ,15//) 

SICP 

ENC 


1 
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100 


20C 


20C 


4GC 


500 


RCI 
RCI  *  RCI 


Nf*  7  *  N*6  4  PRCW 
nne  *  pyj  ♦  i 
CC  100  I  *  l » N  N 
El!)  »  1.000 
CCNTINUt: 

CC  200  I  *  NFCTCE.MM1 
PCI  *  RC II) 

R7CL  =  C.C131 1*2  -  2.456720-4  *  SCI  -  1.930*10-5  * 

14.243350-10  *  PCI  *  >CI  *  RCI  »  RCI  *  PCI 
RSIGL  =  7.C4S72  ♦  1.222513-3  4FCI-*RC!  ♦  1.463660-3 

1  RCI  *  RCI  *  RCI  -  1.3396*0-3  *  OCOSI«CI)  -  7.4?-.C40-4  *OSIN(RCI) 

2  ♦  2.3*56210-5  *  CTANIRCI)  -  2.12*71  *  OLOGIRCl) 

BID  -  l.Cu  -  PTCl  *  RSIGL 

CONTINUE 

CC  2C0  I  *  MN2  ,NN3 
RCI  *  RCIII 

FTCP  *  C. 14J493  -  5  .33  C6 1 0-3  *  RCI  -  3.280440-  11  *RCI*  RCI*KCI 

1  ♦  RCI  *  PCI  *  PCI  ♦  2.1 590*D- 15  *  PC!  *  PCI  4  ?z\  *  *C I  »  *C  I  * 

2  RCI  *  SCI  *  RCI  *  RCI  -  4. =52760-4  *  CCQS(RCI)  -  1.21620-4  * 

3  CSIMRfI)  -  3  .P-t0420-6  *  OT  AN  (RCI) 

RCI  =  RC 1 1 ) 

RSIGM  =  10.9554  +  .255785  *  RCI  -  2.  62C7CD-6  4  RCI  *  »CI  *  RCI  * 

1  RCI  4  4.451  R3C-3  *  i'SIN(KCI)  *  1.093780-4  *  OUNIRCI) 

2  -  4.  8  3  5  <  8  *  DICSIRCII 
6(1)  =  1  .CO  -  FTCP  *  RSIGM 
CCNTlNUr 

CC  40 J  I  =  mm4  ,NPCTC£ 

PCI  *  RC  (I) 

RTCT  *  0  .  C  1957 26  -  1.1  11  320-3  *  RCI  ♦  1.34790-6  *  RC  I  *BCI *F  C I  - 

1  1.C6338C-14  *  RCI  *  KCI  *  PCI  *  RCI  *  RCI  4  RCI  *  PCI  *  RCI  *<CI 

2  ♦  8.418260-5  *  LCCS(RCI)  ♦  2  •  684220-5  *9S  !  J|  RC  I )  -  5.721390-7  * 

3  C  TA*1  (PCI) 

RSIGT  =  17. *25=  ♦  .656044  *  PCI  -  3.F6E519-4  *  RCI  *  PCI  *  RCI  * 

1  PCI  4  1  .655  cOC-2  *  CSH(RCI)  -  1.254770-4  *  OTANIRCI! 

2  -  8.5CEC8  4  olqgipcii 

El!)  =  1  .CO  -  RTCT  *  RSIGT 
CONTINUE 

CC  5C0  I  *  N  S  T  A  TP  »  18*5 
RCI  *  RCI!) 


>  4. 332180-5  ♦  DS INI RC l ) 


17.65=433-5  4  C COS (F  C 1 1 
2  C7AM  BC  I  ) 

SSIGL  *  4.77577  -  C. 750357  *  RCI  ♦  9.65**20-2  *  =C!  * 

1  5.52A62C-13  *  PC  I*  R  C  I  *P.CI*RC!  **C  I~  J  C  I  *4C  l*Rr  f  =  c  I 

2  -  1.21164 C-i  *  CSIN'(PCI)  -  1 . 72  7  V-M -6  *  CUM  RCI) 
STET^L  =  C.2  72  EC-  -  9.C2585  0-?  4  RCI  *  I .  V94? 1  * 

1  R  C  1 4R  C  1  4  R  C  I  *k  C  !  <  JC.  I  -  h  C  I  4t-  C  I  ♦  3.  3*0  6  2L-  4  4  TC0SI8CI) 

2  ♦  2.25c2in-*  *  CSI'UhCI)  -  0 . 'J7*  4?  0 -* j  *  CT*.M(«CI) 
Bill  =  1.300  -  STE-vl  4  STMCL  -4  SSIGL 

CCNTTVjc 

CC  600  I  *  MV6,  N  N  7 
PCI  =  PC  III 

ST  PCM  =  C.C15874’  4  7.586210-3 *RC I  4  *.351510-6  *  PCI 


f.  3. *40030-7  4 
pCI  - 


«  SCI 


«  CCCSIRCI)  4  O.H9499G-5  *  JSINIPCI)  -  4.L45*.IL-4  * 


*  RCI  - 

4 


60C 


1  7 . 5642  5  l-5 

2  C 7 6'  IKII 

S  S  IG.m  *  5.17  732  -  .431  549  *  RCI  4  I.  134240-2  *  SCI 

1  6.5506*0-13  *  =CI*FCI*CCI*PCI*RCI-SRCI*«CI*RCI*RCI 

2  2.c1138C-4  *  CTiMRCI) 

Bin  4  1  .COO  -  STPC.M  4  SSIGM 
CCNTIDUC 

CC  700  I  =  4*8,  NST4TE 
PCI  =  PC  (!) 

STPCT  =*  C.  3  0554*2  1  4  2.l*?5PC-2  *  RCI  -  3.600470-11  * 
l  «FC!*aCnRCr  ♦  1.O0323.0-5  *  OCOSPCI)  -  2.031  250-5  * 
t  1.2512cC-5  4  CTANIRCI  I 

SSIGT  *  5.50  12  5  -  .  5  0  4  C  5  5  *  =CI  4  1.  522540-2  *  PCI  * 

1  2  •  It. 1 7  CC  - 11  *  F  C  I *‘R  C  I  *f  C  l*P  C  I  *RC  I4R  C  I  *R  C  I  *SC  I 

2  ♦  1 .  C  7  7  *  lu-  4  *  ;:Tan(RCI) 

STETMT  *  C.4i51P£  4  ".  52  5  =  0-4  *  PCI  *  PCI  -  6.140-14  *  PCI  * 

1  FCI*PCI<PfI4HC.I^FrI4Rr.I4RCI*SCI  ♦  1  .6*0*80-3  *  0CC5IHCI) 

2  -  C.  15*  7  17  4  CICC-I  PCI  ) 

e<I)  *  l.GCO  -  STETMT  *  ST'ICT  *  SSIGT 


»CI4RCI*PPI 
OSIN(CCI)  - 


P.CI  - 
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70C  CONTINUE 
PEU'PN 
ENC 


SLeROUT  HE  FILCEN  (ZC.RC,  A,  PS  I,NDDe,NTc,NRC,PeSSS,PTCT,TEMP,TTCT  , 
1  RFC  ST  A  » P  HC  TT  .VZI.wOCT  »ri°y»CP»P»G»  vRM  TC  S»  NSTATB  » 

2NSF2.NSE  ,N2,  .-'PR  I  ,NS  1 , 1  AM  S ) 


TUS  SL£RDITINE  WRITES  THE  CtJTPUT  OF  THE  PROGRAM 
CATO  OI‘K  STORAGE.  THE  TILE  DPPINITICNS  ARE  LISTED 
IN  THE  EXEC  FILES  T'JKHMl  AND  TUR60IA. 


♦ 

♦  ♦ 
♦  ♦ 


IMPLICIT  REAL*6( A-h.P-2) 

INTEGER*  A  vE»yFl^C»NCl»  If#  MRP  1  »ME1 1  .yM»  *N2»  *'N3  ,  yN4,N$E2»N2 
I N  TEf.F  3*4  HNS 

CCHHt'N  /INT-V/  vo  ,se  i  ,MC,.\C  I,  IC 
CCNPf.N  /KC'J*T/  «HGvi,  «80'«1 

CCHHCM  /  NCC'JN  !  /  N  N  »  NCCL  »  ^C°.L  l  » N  E.  Nu  OTC  »NS',‘  AT 
CINF'SICN  ZC  (  1  )  t  w  C  (  l )  .  P I  1 )  «  P  S I  (  I ) 

CINFMSICN  NODE  INF  1.1 ),\TEl 1 ) ,*EC(  II 

IF ( IANS . £C  .2  )  GOTC  1C1 
CC  IGO  I  *  l  »NN 

write  (2c.  no  zcm.acm.em 

FOR**  AT  (IF  15  *11  I 
CCNTIMUE 

V*P  ITE  (  2E.IDJ)  NN.-'-’Cw.MCCL.MBnwl.NrOL1,  .NROTOO.  NST  AT  p 

WRITE <25,121  i  PRESS.  PTC,  T,  TEMP  ,T  TOT  ,e  HC  STA  ,  RHOTT ,  WOCT  .CP  ,S ,  G  .RPM.VZI 

FCP«*T( 7  15  ) 

PC  cH.‘,r  *  A  F  1 1. fc,2F12. 6./.4F12. 7,FS. l.F 13.8> 

IF (IANS  .EC. 2  1  C~TC  *01 
CC  200  I  *  1  ,  NEI 

WRITE  (EC,  210  MCE!  I,  l  J  ,NCCE<  I  ,2)  ,NCDP(I,?I  ,  NCOS  (1,41  , 


21 C 

FORMA  mi  5) 

20C 

CONTINUE 

l  *  2  *  NCCL1  ♦  2 
CC  300  I  *  l  ,L 

*  yRCW 1 

WMTf  <35,  MIC) 

ARC (I  I 

31  C 

Ff.'o.M  A  I  (  15  ) 

EOC 

CCNTIMUE 

301 

CC  400  1*1. UN 

WF I TS (40, -1C  I 

FSI  (I  1 

4  1  C 

FORM  4  HE  15.  11) 

400 

c 

CCNT’MUE 

P  E  T  L  t  N 

ENC 

SLePriJTINE  c  L  C  F  C.  T  (WClT  ,P  TCT  ,  TTCT  ,RHQ  Tt,VTOT  ,XVEL  ,C  3  ,  R  ,Gyl ,  G  y  II  , 
^lAPEAJ^ 

♦  ♦ 

■*♦  THIS  COMPLIES  THE  NCN’C  I  PE  NS  I  L.N  A  1  VELOCITY  X  ♦  ♦ 

♦  ♦  +  * 

INFLIC  IT  Ft AL*R(;-G,P-Z),  REAL*4(H) 

INT5C.FR*  A  •»:>  „v«l  ,NC  , NC  1 ,  Ir  1  „4Ei  ,  > M  ,  YN2  ,  MN3  ,  MN4  »  NS  E2 , M2 

CCPyrM  /  |N  T4/  ,  •vw  1  »NC  , N'C  1 ,  I C 

CCPy  IN  /NCr-JNT/  >  PC*  ,yPOw!  ,YN  5  EC 

CCNHtm  /NCCiJM  /  f.  \  ,  NCOL  ,  NC  OL  1 »  NF»  'l°0  TC  .NSTAT 


180 


nnnnnOonnn  nnn 
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IT  *  0 

>V EL  *  C.1C0 
EPS  ■  l  .£0-0#: 

PJ  •  778.2  *  22.174 

RHCTT  »  IFIJT  •  1  44  .000 )  /  ( R  *  TTOTI 
VTCT  *  CSCRTIZ.CCC  *  C=>  *  RJ  *  TTCT| 

PHI  *  *CCT  /  (SFCTT  *  VTCT  ♦  A°EA> 

100  PM  *  XVEL  *  (l.CCJ  -  XVEL  *  X  VEL  )**  GPU 
C  If  p  *  C*es<  PHI  -  PHI  > 

IF  (C IFF. IT  .2  PS  )  CCTC  2U0 

CPMDX  «  PHI  *t  l.CC/XVEL  -  I  2.DQ*XVEL  » /(Gm*ll.OOQ  -  XVCL*XVEL)>> 
XVEL  *  XVEL  ♦  I  PH  H  -  PH  I J  /  OPHIOX 
II  «  IT  M 
IFIIT.LT. 211  GCTC  IOC 
hF  ITF(6  ,  JIG) 

lie  FCFH*T(*  convergence  NCT  REACHED* ./> 

20C  CONTINUE 

V  2 1  a  XVEL  *  VTCT 
RETURN 
ENC 


SL6PrUT  INS  MPICT  {  ZC  ,  -  C  ,  ZM  AX  ,  Z4  IN  ,  3*1  A  X  ,  RM  IM.OHZC  .OHPC  , 
1CVZC.0VFC  .CrtZCl.CHRCl  .CZC.CRC,  XLK.riS  E2  ,  1 ,  HZ  ,  N  S  E  , 

2NE  1  ,:\C  2  ,HH2) 


44  ♦  ♦ 

44  ThlS  SU8PHUTINF  CREATES  A  TE rCT®  CN I X  f- 18  PLOT  CF  ♦♦ 

44  2IGFT-NC0E  I  SCPAPAMETRIC  ELEMENT  HESH.  ♦  ♦ 

44  44 


C 

c 

c 

c 


{ 


20 


l 


IPFl IC  r  T  REU*EU-H#  P-2)  ,  REAL*MC1 

INTEGER  *4  V°  .HRI.NC.NC1.IC.NE1  .NL4.MR14, NC14.NCC1 

ICCICAL*!  TITL1 

CCNPCN  /  F  F  AP,  /  F3I5CCC* 

CCHMCN  /NPAR/  12 (2JCCI 
CCN*CN  /  C  F  /°  -'•  /  04(3000  1 
CCPMCVI  /IN  74/  V®  .  ivC  l  tiC  .  I C 

CCPMCN  /NCf'JNT  /  a*  r,w  I  f  mns  EC,  LI  M  I  ,LI  MR  .LI’-*'. 

C  C  N  VCN  /HCCUNT/  NN.Nf'.L.NCCLl.NE.'i*  TTO.MSTAT 

c ifc^«s  ion  chzc  ( 1 1 . c h r< c  m  .ovzc  m  / f c  ( 1 >  ,cxyl  (4 1 
c  ihensicn  chzc ii  n.o-cui)  .czcm  .opcm.opsi  ioi 

DINE.NS  ITN  (Cni.’CllI 
0  IREN'S  I  CN  KLK  (  :i 
CINSNSJCN  TITL1('7) 

CAT*  -ITll/'EICHT  r.CCC  T  SCPAC  ARETRIC  ELEMENT  MESH*/ 

44444444****4*<***4*<»*4A*******<***  *«***:  ****  *«[****:*  **************  *** 


4*  a* 

**  CCNVEPT  THE  NCOAL  CCR0INAT=3  TC  ?CAL**  ** 

**  TC  MA K 6  THEM  C0*<PATA8LE  WITH  PLCTG  CALLS  A* 

A*  *  A 


****4*****  *44*  ************************************  ********41  «**♦*«*** 


cc 


30  I  * 

ozci  r ) 

CPC (  I  ) 
CCNTIH'JE 
OVL(l)  « 
OVLCI  * 
CXYLI3)  * 

C  >  >L ( 4  )  . 

CALL  J E  I N  I T 
CALL  GSCFEE 


f.N 

ZC(l) 
T  C  I  I  ) 


ZM  I N 

e M  IN 
ZMAX 
FMix 


4*  PICT  i-roiL  F'lMTs  ■*■* 

***4  444  4**4  4  4*4*4*  4*  *4  *4**4*44**44.44*4**44**  44  ************  ********** 


CC  5  I  *  l.-ICCLl 

chzc  m  =  c.c 


vPLO  00 
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C.O 


KKK 


00 


90 


nH»C<  1 ) 

•  CCMJNLE 

CC  6  I  >  l.^CWl 
cvzc  (  n  3  c.c 

CVRC(l)  *  C.C 
£  CCNTIfi'JE 

NM1  *  “PC*1  ♦  1 
NCC1  *  NCCll  +  1 
N  1  4  =«  NN 
NP14  3  “FOWL 
NC14  *  NCCll 
NN  1  *  ‘IN  ♦  l 
►PI  =  “PC*  ♦  1 

CALL  P  1C  1 1  •  MNN  NN  N  INM  •  »MAtCZC»C°C»0XYL»,7,T  ITLl  1 
C  33333333333333333333333333 33 333333 33 3 33 3  33333333  33333333333333  ****** 

C  **  PL  C  7  HC"  WONT  At.  ELc  *P>lT  SCtlNOAPISS 

C  3333333  3333333  33  3333333333  33  33  3333333  33  333  33  3  it*3  33  33333333333  3333333 

MN  3  1 

1 

ICC  J  *  1.  NCCll 

nt-icu  )  *  czc if«i 

OH F  C  IJ  I  «  CPC  ) 

KIM  J»  *  NN 
IP  (KKK. IT. C  I  GCTC 
“N  *  **  4  YPCWl 
KKK  *  0  -  KKK 
GCTC  ICC 
VN  *  mn  ■*  NFL 
KKK  »  0  -  KKK 
CCNTIME 

CALL  FLCT  < • NMN  NNNN'GM  •  »  MC  1 A  ,PH  ZC ,  CHRC  ,OXYL  ,  3?  ,  T I  TL  1 ) 

00  2GC  l  *  1  #  >  P  C  W 
NIK  3  2  *  I 
KKK  *  1 

OC  900  1  1  *  1  t  NCCL  1 

IFtKKK.LT.Cl  00 TP  890 
III  3  XL  K  (  l  I  )  ♦  “IK 

chzci  (t:»  «  czcum 
chrcii::  i  3  i'pciii  n 

KKK.  *  0  -  KKK 

gctc  eoo 

III  3  KIM  III  n  I 

chzci  ( m  =  rzcc  1 1  n 

CHRCl  (in  3  CPC  (  II  I  ) 

KKK  3  C  -  KKK 
CCNTIMLE 

NN  3  (2  <  !  I 
ML K  3  NLK  ♦  1 

CALL  PICT  (  '  (*  NNf.NiNNONl  •  C  l  A  ,rH  ZC  1,  OHPCl  ,  "X  YL  ,  37  ,  TI  TL  1 ) 

CTN  TT'JliE 


90 


ICC 


E9C 


eoc 

c 

c 


♦  1 


ZCC 


3333333 *33 333333333333333333  333333  333  33 ■*  *<-**tt y*333 3 ****#•*■>* y*3 * 3*3«3 

**  PLOT  VERTICAL  AOUVOAPIFS  33 

33333333333333  33  333333333333  33  333  !!t333333*3333333333333<33  333333  33333 

NN  *  l 

NC11  *  NCCL  ♦  1 
CC  400  I  «  1 » N  C 1 1 


00 


1  t N SOW  l 


EOC 


Z  C  (“N-t) 
F  C  1  f  "  I 
1 


400 


3CC  J 
OV  2C (J  I 
OVFCUI 
M  N  *  M  “ 

CpNIT  IMF 

CALL  FLCT ( • NNN  NNNNOM  •  ,  MRl*  ,CV  ZC, CVPC , OX YL , 37  ,T  ITLl  I 
MM  =  NN  ♦  MF1 
CCNT  INUE 
CALL  ?  S  T  E  PN 
PE  IlNH 
INC 


APPENDIX  F 


LISTING  OF  THE  PROGRAM  TUR30 


FILES  TLCPC  FCRTF/N  Al  NAVAL  PCSTGRAOLATF  SCHOOL 

?  ! -c -.1  ^ ^ i ••  S ^  S  T  <  £  -TU •*  »  ’  i  ■ 

c  «2* -wz*su*zv+i+szuv 

C  mtt 

C  13UI  P SC CRAM  TUPeC 

C  «%** 


ON  THE  TEKT5CNIX  M«  GRAPHICS  TERMINAL. 


T$<- 


»  /  •■»  #  4  1  v  ■»  •■  * 

'  *  "  ~1  '*■  -•  -•  .*  P  .* 

»  »  «  9  1»*9  ’  '  -•! 

^  •*  u  ■«  S 

*Ff  r  * 

N  1  -*5  f*  0 
*-■•«%  *  ■« 

•  N»  '•  *.  ♦. 

»  /  !*■  V  .•  .  /  '  V 

t>  1  >  H  *)  ti  J  J  j 

P  .•'  .•  F  9  -J  •-»  9*4 

;•»»«?*  i-o  '•  t 

*  ; r.  j 

smi 

ivm 

4  S«’7* 

?  s  m 

■#  i-  *  *  j* 
^  1  C  '  J 

S«':i4 
USX*  :* 

45-Vt?? 

'  *  '  -  t»  ■  ■  r  ,»  V 

»  •  .  •  *•  V  1*  .t*  .1 

t  >  '  O  O  I  '  ■■  *. 

»j  ;  O  o  »  »  o  o 

■I  *■  "  11  .  »  T  .  - 

/  It  .'  V  jf  f  *.  *  1i 

;  1**0  1  •»■»•■  » 

»  £  ’*■  -•  »  *  *  .*  *’  , 

I  O  .  Of  *C  ..»•*»  « 


iim 

1*1*1  !44 

J3?X?  THIJ  MESICCNAL  THPOUGH-FI CW  ANALYSIS  PROGRAM  ?«i 

«MI  APPLIES  A  G*UePKlN  F!MT=  ELeNSST  **ETHOO  T0  A  LZ;. 

12?T!1  $TF£AM  FUNCTIUi  PCS  y*L  AT  I  f’J.  T[jS  PVVGP  \  USES 
1A41I  EIGHT  NCJE.  ISCP'.'-U  4CT»IC  ELEMENTS  if  C  ru«j|£r;.  «v> 

U«1  PC  [  N  T  GAUSS-LEGcUCaE  00  eC6ATU'?c.  NUMERICAL  Sit 

ititt  INTEGPATICN.  SElECTEC  RESULTS  A »c  CISPLAYEO  li'j: 

11  Jil  is*. 

5*Itl  OS  THE  TEKTRCSU  Hl«  GRAPHICS  TERMINAL.  >!?. A 

UUi  1-Tf 

<z*t»  i„: .--a  ,,- 

i*A*M3r.  m  *  nn  -  *  ?  i  iiu*  s  I*  4  v'*  i  ‘r.t J > 

«  #  ■':  t»  i  q  .  <5  .  V  «  «  O  >.*•  *;•**(  **'  .  ,  .  *  .  •  t  **.  r  •  *  *.  •*-./  .»*/*-»:»  1  ■*  T  1  *-  »  J  ;  >  o  »  * 

)  ,■  :lt\l*f  T  ♦  i  •  C  ooo  to..  Oc  t  0-0  *t*oo  JO*:**.  *:*»*»•*...*•* 

lS4«Milfii.U?  ;'5>MS,fz  •,*  ;r  ;*  ssi  ’  *  a  *  o':-. 

ILLICIT  FFAL*«(A-H.F-Z>  ,  REAL<4(C) 

INTEGER  *4  NR  "AC.. \  *=>  I  TE  ,  I  C  »NNC  J  .  AC  '*  ♦  S  N  54  ,  NPO^S ,  L  IMP,  L  IM  I 

Cl  MENS  ICS  ALL  AFRAY  VARIABLES 

CCHFCN  '/FEAL3/  REIEftCCCI 
CCHHGN  / F-AL a/  l-(5JC> 

CCHYCN  /I*.T^/  I  2  I  20  C  C  » 

C  C  H  VC’I  /NCriNT/  COL  ,'ICOL  1  »NN*  NE 
l  ,NNE,MNHC  .ANNSC 

CCHM<-,:j  /FC"'V  RGfG.CP.PT,TT,,o.H.or’,PHCTfRHf:STA, 
lUlHLrT,UCUi.ET  ,PS'  I.3TJ»F?!2,C1  I1»GC 
CC*"<f  S  /HCCU*. T  /  “'i.  *  ..MFCvil  ,KK 
CCHMf  N  /IT  C/  ‘  S'- IT  i 

CCHMni  /HFCI  *,T  /  ‘  H  ,'  FS.NSR  ,NPA  ,NPS,  NC.i,NPY,T;P  R.NPC  ,r.P10,  :Pll, 
1NP  12, DP  1  •  ,N->  ’  <• ,?  r  is  ,>.*•>!',,'  PI  7,  NP!  :,NCU,*JP‘,1 ,  ‘ip?  I  ,np?  »  ,,.’2  3  , 
2NF2^,NP.*  I  ,r  >Cc  ,»  r:?,*  j:»,-,PC«,aP3  :..-|PI  1,NPI2,  iPT2  ,\CI  A  ,.'!?!  5  . 
3NFC1  .:  PC  Z.np'’  PCS,  .PC*5 


2NF  29,  npc  J  ,  r  '* 
3NFC1 ,:pc;,np 


iRfU  t  .  f*  V  *  ,  '  ^ 

c  IfF'-s  ;ff  ;a  (•;».**•<  S  »,*.(?»  ,J  (  S  )  ,S(aJ  ,SF(  i) 

Cl  HE  VS  T  CN  PC  :•  (  9  )  » <IC  I  (  i  I  *  r,J  n  h,  91,3MB  (  3  ) 

Cl  PENSION  M5),l.iC:i  ,  U(  ?) 

C  IH  =  T  S  II*H  ▼!  T|  ?(  ;ci  ,AJAC  <2#  2),HIJAC  (  2,21 
C/1A  STCF/•STGF,/ 

CALL  PCA1AIZA, EA  ,h,PELX,KK, LIMI,LIMR  ,LIM4) 

CALI  IN  HI  (L  TM,L  I^S.T  IT  Lc  ,  f.^OTOC  ,NS  TATB.LIMA,  *ISGD  •  NS4  ,.4.\F  h  , 
1NPC*>S) 

CALL  ZERC  I(»  PINPI4I  . PR (NPI2I  ,P 6 (VP! 5  I  ,RB(NP9» , F  ; (N»»l 
2  ,PE  (N«>  U  )  .rR  (NFU  '’(VP’)  .R  F(  API  I.R  F(.‘  Pj  )  , 

3I2(SPII  )  .IK  ‘  PIC  )  ,  -  4  <VFH)  ,RE  (NPlz-I,  (iVPIF  R  (VPj  I  .PSCIPTI 

4,fi6(T,P4  J  ,»C(  :  P  111  9  0.0  3  j  ,P’I?.P21  I  ,a  •(  VPP2  )  ,  <•  j  (  t  »2  )  1  , 

5EPI,12(  N  F  [’»  ,  12  (\FI-*  »,K9  (\P2EI  ,PH(S«*23  >,  r-o{.'4»l'PI  ,  .INr'j  ,  SE  h  , 
4NNF4.NPCU  J 

CALL  INFU  <R  -  (NF!  )  ,F“.(NPP)  ,P  2(  NP3  J  ,f>  c<NP^»  ,Ri  (S’S  >,  12  (VPI31  , 
II2(NFt4l  »P  i(  ’  I*  2  2  )  ,r.  J  (  NP2  l  )  ,  *•  t  (  \  P  !  *>  I  ,  p  :-  (  V?  P  )  ,  P  5  (  "  s  1 2  )  , ( I  ■ 3 1  2  )  , 

? R 8  ( N P2  3  )  .«“’(*  P  2*.  )  -  ( -  '  P2  9  )  , 1  R  (  NP2  **  J  »  c  ^  ( V P  2 7  )  , 

212lf»pm  ,I2<  \P12  »  ,TI  TL£,\.-OTCr>  ,NN  ;0  ,  N  v  h. \N24  ,  VRC  4  S  ) 


File:  TLPRO 
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C 

c 

c 

c 

c 

2CC 


c 

c 


c 

c 


c 

c 

c 


c 

c 

c 

c 

E 

c 


E 


c 


c 

c 


c 

c 

c 


ecc 

c 

c 

c 

see 


c 

c 


C A  L  CLLA  TE  AND  ‘U*  VELOCITIES  AND  NErf  VOCAL  CENSITY 

CALL  0TSH03  (NF2)  ,1  2(NPI4)  .R8(  NP1  1  ,?S(NP12  ),PP  (MPlc  )  ,<>?(VP  1  7)  , 
ips (vp? i  ,Ft(*ip<n,~“([.ps» ,rp.(.v®4 ) ,?.?( vp*»,ss.{‘iP4i  ,^:(ii’hi,k)((,ip:7| 
2  ,FE  (NP23  )»BiS  (NP24  ),  p-i  (NP2h  l.s?  (NP25  )  ,  PP(  VP  7  I ,  *  9  (  IP  1C  I  ,P  S(  VP  11  »  , 

2  I  2 ( NP I  3  I  * P  S( VP  2  6  t  •'  3  Cl  P2  9 )  . PS  ( NP2  i  I • PS ( NP22 1 , S3 ( NP 14  I ♦ NPQ TO P, 
4NSTAT8fNFCC*NE*tNNE4»NRC*«Sl 


CALL  PC  At  (PS  (NP14  ),  W,P8(  N"4>  .Z  A.EA.P.  6(NPS)  , 

IF8(NP2  1  .  F?  (VP1  I.?8(MP1S)  ,r  3(NP  10»t  12  ( VP  I  2  )  • I Z ( ‘IP  I  4  )  ,  P  3  ( NP  1 1 )  , 
2t 21NPI3  >  ,Pf(  ,NP2ei  ,3d(NP2SM  ,RJ(  NP24)  ,  NNCD  ,  NE4  ,  VNF4  ,  NP  C  .V>  I 


CALL  ST  IFF(?S(  NF?)  .  F£(NP1  1  »PS(  NP3),  =  M,ZA 
1.6A.W,  !2(NPI4)  ,P;  (f:?!fc»fRS(f.°I2)  . 

2B8  (NF14  )  ,RP(NPI5)  ,«9  (VP20  >,  I  2  (  N  P I  2  I .  NNCO  tfJS4,TlE4  ,  'IRC*  5  ) 


SCLVE  SYSTEM  OF  EQUATIONS 
CALL  DSIK(R3(NP2C1  ,R3(NP14>  ,NNCO,KS  ) 


CALL  0EPtA(BS(NP12l  ,Pd(VP14J  ,F.  c  ( N*»l  5  )  ,\NCD  ,N£4  ,MNE4  ) 


CCPFARE  NFV>  ANC  CLC  S  T°E  AM  FUNCTION  0 1  STk  IbUTI  2MS 
CALL  TcSl(P9 (Nfl2  »«BS(NP13) »X. NNOC»  N  F4  »MNE4 } 


CALL  REL/X(RcLX,SS(NPl2)  .’9(NP  13)t  12  (N°I  2  ) i'IMO D « <‘(E4 *NME4) 
TEST  FCP  STREAM  FUNCTION  CONVERGENCE 

K  x  s  KX  4  1 

IF (X.LE.2 =C0-G2  »  GCTC  300 


CALL  NOCC?  (X  ,K  8(.'F14I  ,K3  (VP  12)  ,?3('|P  13 » ♦ P 8( N»2 0)  ♦  I  F  L  ,N\CO  ,NE<-  , 
INNE4) 

NEXT  ITERATION 

ir(IFL.cC.C>  GCTC  see 
GCTC  30C 
IFl  =  l 


CALL  OUTFIT!  X.KK  ,F  H(  VS)  ,  *  3  (  NP  8  )  ,  (  F  ?  10  )  .  3S  (’1°  1  1  I 

1, PE(':JlZ],^(r.P?)  ,r'K('OL|,^(‘ 

2,  F8  (MP7)  ,rS(  'P2?  )  ,FH  (IF24) ,  A3(  FP?5)  f  F9(NP26  9CIP27)  , 

3P  £  ( NP  4 »  ,  F  6  l  V P 5  >  » '  N  Z  2  E4  ,.\\  =  4  ,  NP 0  •"  ) 

F  F  A  X  *  2  C  .CIO 
RP  IN  »  C.COJ 

CALL  ’*FL  CT  ( Vf  (N  P  2  )  t  ?  *  AX  t  7  v  I N  *  ?  I:  (  VP"  )  *C4(  VPNl ) ,  04  (  'IP02  )  *  CM  ‘iP!l2  )  t 
IC4(NP(!4  »  ,N.*0  TPF  ,  *£(  Nr  4  I  ,  P.S  (  M®5  I  tF  J  (  N  F2  L  )  ,  PS  ( VP  22  )  ,  3R  (NP1-  I  , 

2C4  (NOGS  I  tN^-OOt  P  E4  ,.VNE4  .WOWS  ) 


MPI- 


nnnn*-  r>  onnnnnnon  nnoonnnnonnnnn 


FILES  TURBO 


FORTRAN  41  NAVAL  FCSTGPAOLATE  SCHUUL 


5LP«0'JT  INE  I  MIT  1(11!*!,  LIMP,  TIT  IF,  \!P0  Tf3 » NSTATS  » L  I  V4,M\CJ»ME4» 
1NNF4,MAC*$  ) 


IMPLICIT  ?FAL*PI *-*,P-2) 

INTE  C2F*4  NPj-AC.NH  IT=  ,1  C.'4\r:  ^E4,'IN  E4.NPCWS,  LI'^P  1 1  If*  I 
CC*!*r>l  /FCC'JNT  /  F  CCL,'(COLl,NN,NE 
1  ,NN5  *NNHC  »N.'l\PC 


CCM.wr:N  /^tCJVT/  v~' 
CCN*CM  /NFCl'T/  NP! 
1NF12»N»1  15 

2NP24»NP2!,‘P76  ,f327 
2NFC1. MFC2  ,NPC’  .f.Pr-, 
CCT-mp-i  /lid/  MKfAC, 
CIFSNSICN  TITlE(lC) 


F  E  A  C  (*JRt/C«l  1C  17  I  7  L  c 
FCPi“AT(  HAM 


READ  IN  NUMBER  U*  f.CCES  A^C  NUMBER  of  ELE vENtS 

PEAO(25»2CC)  M,f-RCW,NCCL  t*DC*  l  .NCCL  1 ,  NRCTCB.NST  AT  ? 

2CC  FC  PM AT ( 7  1 5  ) 

C 

NNE  *  3 

N  E  *  MPfV  *  NCCL 
NNCC  *  \ A 
N£<  =  NE 
NNF4  *  MAE 

N  F C In E  *  2  *  VPCV*  ■»  1 
NF1  »  1 

N  P  2  =  "IP  J  ♦  7  NCC 
NF2  =  MF2  ♦  WCC 
NP<  *  'J P  2  ♦  7  NC3 
NPE  *  *  Pi  *  : NCu 
N  F  6  *  \f;  ♦  f.NCr 
NF  7  *  *;  P  (  ♦  f-NCO 
NPE  «  \°  7  ♦  *■  \ C C 
NFC  =  NRe  ♦  ,\NCr 
N  P  ]  C  a  NF9  *  NNCC: 

M  P  1 1  *  N  F  1C  ♦  NNCC 
N  P  12  *  MU  ♦  ANCC 
NP  7  2  *  N  F  1 2  *  N  ►  i  C 
NF14  »  f  F13  ♦  NAT  C 
N  P  1  5  a  N  F  14  ♦  AM'C 
\  P  16  *  NF1E  ♦  Nr  r: 

NF17  »  A  F 1 6  ♦  ANi'C 
NPia  a  N  F  1 7  «•  NNf.T 
NP  IP  «  NF1E  ♦  A‘!f.C 
NP20  *  N  F 19  +  NMC 


183 


nnnnn 


FILES  TL?en 
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NP21  *  NF2C  ♦  NN’'C*NNGC 
NF 22  *  N  F  2 1  ♦  MCC 
NF23  «  N  F  22  ♦  NNCC 
NP24  *  N  F  2  2  ♦  NNi.C 
NF25  *  b  ( 2<>  ♦  NNfC 
N F 26  *  NF25  ♦  NNCC 
N  P  2  7  a  NF2F  ♦  NNCC 
NF28  *  M27  ♦  NNCC 
np;«;  *  N F 2 S  ♦  NNCC 
NF 20  *  NF2S  ♦  NNCC 
NF  1 1  a  1 

NFI2  »  NFI1  ♦  NNCC 
N  F  13  *  NFI?  ♦  N'""  C 
NF14  *  Nf!2  ♦  N?4 
N F  15  *  N  F  I  A  ♦  NC**NN  =  4 
NFC1  *  1 

NFC?  *  NfCl  ♦  NFCwl 

NPC3  *  NFC2  ♦  NPrV.l 

NFC4  *  NFC3  ♦  *ccv»l 

NFC5  *  NFC4  ♦ 

NPC6  *  NFC*  ♦  NPf  Wl 

NEK*  »  L  TMP  -  NF  20 

N  E  >C  I  =  IIMI  -  Nf- 1 5 

NEXC.A  x  11*4  -  ,\'Prs 

IF  (N-rXCP  .IT.  ,j)  C-LL  -FPICUEXCR) 

ifincxci.lt. :»  call  :r<F  2  (  joxci  > 

IF  (NrXC  4  •  L  T  .  Q  )  CALL  CaFit'irxCA) 

V.BITEI6  ,2  1C)  NFXO.N-XC!  ,».exr4 

21C  FCR^AT  (  2  X  »  '  SPACE  4  V  A  TL  ABL  5  :',/,'  REAL  8  ■•,15,2X1'  INTEC 

1R  *  ' • I  5  , 2  X ,  •  FciL  4 
PETLPN 
ENC 


SLPROUTIN^JACCEIEl  ,a  ,0,=  ,RCi  ,ZCt,?  JAC^^ 

This  SLBJ  CUT  IN'S  COMPUTES  THE  JACCBIAM  MATRIX 
FECUIPFC  F-  •  S  ThS  rOCor  IMAT;  T®  ANSFGR  1A  T  IUNS  . 
CALL  statement  0= "I M T : 'm  «  : 

El  =  VALUe  rc  ThF  ETA  IV.P'JT 

Z1  *  V.*LLC  ~F  Tt-£  XCIES  INPUT 

C  f  T  )  =  )C(,  I  V  A  T I  7F  CF  TF(I)  WPT  z 


E  {  U  J 
RC5  = 


'C-  TV  A  T I  '/•=  C c  S' 
OINiTES  :F  Th  E 


ZCi  *  I  CC'-rT!  NATES 


ii'i  -IATF  IX 


(  I  )  XPT  £ 
•Lt',;ri' 

’I  L  E  1 E '!  T  •  S 
OUTPUT 


INFLir.IT  FEAL*E(/-r, P-Z) 

CIPENS ICN  FJ  AC (2  ,ZJ  .  C <  s)  ,j( S  I, PC*(3»  ,ZC* (81 
P  J  fC ( L  *  1  I  a  ..CO 
Fj/cc.  ,2  i  a  ;.rc 
RJACI2 •  1  »  =  C.CC 
F  J  AC ( 2 , 2  )  =  J.CC 


El'E I  1/4.00 


E1*E  D/4.00 


(El  *  2 .00*2  L  *  2.C3*Zl*EI  <•  El«E!)/4.30 
-  (  Z  !  +  Z  l  <  C  1 ) 

( -E I  ♦  2.C0--Z1  ♦  2.00*Z1+C1  -  El*EI)/4.Cn 
(-1.30  ♦  E  !***!)/?. 30 

(El  Z.CC'Zl  -  2.00»Z1*E1  -  E  1*E  1 )  /4. 00 
-il  ♦  Z'.*  rl 

( - E 1  ♦  2.:r^Z!  -  2.00*Z  1*21  ♦  El*cll/4.CQ 
(  1.03  -  =l*c  U/2.00 

(zi  *  2.rc*-i  ♦  zi*zi  ♦  2.co*zi*ei  )/4.oo 
(  J.CO  -  Z1*Z  11/2. 30 
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FUE:  TLRBQ 


FORTRAN  A 1  NAVAL  FCSTGRAOLATE  SCHOOL 


E  ( 2 ) 
f  (A  » 

E(E) 

e  c  el 

£  (  7 ) 

E  (  £ ) 

cc  ioo  i  =  i .  a 


(-Z1  ♦  2.CC*E1  ♦  Z1*Z1  -  2 .00* Z 1* E 1 1 /A. 00 
-fl  *  E  1  *  Z  1 

(Z1  ♦  2.0C-E1  -  Zl*Zl  -  2.00*Z1*E1  1/4.00 

(-l.oc  ♦  zi*zn/2.oo 

(-Z1  ♦  2 • CC*F  l  -  Z1*Z1  ♦  2.D0*Zl*El)/4.00 
-<Fi  4  Z 1 <  5 1 J 


RJAC ( | >1) 


10C 


RJAC  (  1.21 
P J AC ( 2  » 1 ) 
RJAC (2,21 
CCNT  l.\UE 
RETURN 
ENC 


PJ'C (1,11 
P  J  AC  (  l .  2  1 
RJAC  (2.1  ) 
RJACC.2) 


0(1  )  *ZC3 {  I  ) 
0  (  I  !*KC'.(  I  1 
5(  I  )*ZCS(  I  ) 
E(I  )*RCi(  I) 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


JLPPCiUTINE  0  I£T( PC, N COE, ZC,P« l  , RHC , R HrN , P  ,  VZ , V »  ,  MP.PE.h.  „ 
1,RR0TT  ,  T  £YP,  TTCT  ,  FTC  T,  3R  ESS  ,HS  ,NT=  ,h=  ,EiTR  CP,  CEVL.pt 

2ETA.NROTCE  .‘ISTATR  ,f  •  NT  C  ,  S  F  V  .  N  N  c  *  .  N  SOvi  $  ) 


°L 

AT. 


THIS  SOPROUTINC  CALCULATES  L  Akri  V  VELOCITIES  INC  A  NCV. 
Nn0  AL  CSMSITY  FT  C  '*  i  K*.'l'«N  PSI  0 1  STril  •»UTin\*  AT  EACH  OF 
THF  NCCES  IN  tH=  SYSTZ‘4. 

CALI  STATEMENT  OiFINI  TICV'S 

NE  a  N  L  C  ?  R  f=  E  L  c  Y  E  N  T  S  I\*  T  RE  MFSH 
NN  *  MH2ER  CF  NCJcS  I  N  Tf=  V  c  SH 
PC  *  ARRAY  C F  R  N  “  Q  A  l  COT*  >1  NATES 
NCCE  =  ATRAY  JF  ELCJE(.TAL  TICE  ASSIGNMENTS 
C  =  RATIC  r F  SPECIFIC  FEATS 
R C  =  GAS  CONSTANT 
TT  =  I  RLE  1  TCT-'l.  t g» p  =  ? ATUr' E 
FFCT  »  IM=T  ’CT4L  DE‘SITY 

FHCN  *  V»r  *N  V  =  CTC--  *ITH  ME*  CFNSITY  OISTPIBUTION 
ZC  =  ARRAY  CF  NCO'L  Z  COG  TO  I NATES 
F  S I  *  N0C4L  ST-tAv  FU‘iC  Tl  C*i  VECTrP 
PHC  =  NET.fL  STAtIC  sevsity  VECTJP 
F  =  f-CCAL  ALCCKAo'  FAC7CR 
LIMST  =  INLET  AXIAL  VEUCITY 
\l  =  NCOAL  AXIAL  velccity 
VR  =  NCUAL  FiOIAL  VELCCITY 
FFCSTA  =  riL'T  STATIC  CFNSITY 
ALP  =  N  C  C  A I  AHSCL  'T=  F  L  C*  ANGLE  ARRAY 
EE  *  »TOAl  k:l1T;v=  FL  Cw  ANGLE  VECTOR 
H  =  rCC-AL  TfTAL  c'|TH*.lPY  VECTOr. 

YG  =  F.CTCt  SFEEO  IN  FAC/SEC 


♦  ♦ 
44 
44 
4  4 
44 
4  + 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 


44+444  444+4444444+4444+4  +  444  4*44444*4+4  +  4* 

■  4  i 


44 
44 
4  4 
4  4 
4  4 
44 
4  4 
44 
44 
4  4 
44 
44 
44 
44 
44 
4  4 
4  4 
4  4 
44 
44 
44 
4  + 
4  4 
.  4 
44 
44 
♦  4 

44+  +44 
4+44  + 


INFLICIT  REALSFfi-h ,F-Z) 

INTEGER**  \«  =  AL  ,M»R  HE  ,1  C  ,  NE  *.•(  N  E  A ,  NPCWS  ,  L  I  •*»  ,  L  I  *  l 

CC  YYl'M  /NCC'JM/  NCCL  .NCCLi  ,\’N,  Nc 


l.NNE.fJMPC  .NMNRC 


dcY*‘N  / *•  c r j ’ ■  t /  * ^rv. 

CCNYCN  /SCCA/  FG,G,CF,r-TfTTtv..',,-OCT,  FFCT.RH1STA, 

1LINL"  Tf  LCLLET.PS!  I.  P*M,F2’ 2.  ?!  II,  JC 

c  ims  tcn  zc  (  i  » ,•  i.(  i  t,M  n  ( i  i.R sen )  ,hs(  ii ,  -u(  l ) 

OIR-NSI CN  ’WL(  1 1  (1  )  ,-cvK  (!)  ,-r  rT  (L  i ,  rt  r  (  1 1 

C  IRE'S  IE  N  VZ  (  1  »  ,  v*(  !  1  .FH'M  ’  )  ,P'I  (  1)  ,  Yi.(i  1 
0  I  FF  N  S  I  r  A  0  (  4  l  ,  f  (  ■•*  I  ,  S  F  (  I  ,  ••  C  t  (  1  ) .  tC  M  ) .  c  T  \  (  1  ) 

Cl  YENS  I C  N  "1  :  S  )  .Z!  (  F  1  ,  ALP  (  l  1  ,c-  T(I  1  .FN’T’Fin  .-tR(  n 
CIYEfSIC  N  M,:=(V.-A,  U,  I  ST\(  *  >,»T:  (11 

C1NC.N5ICN  OR  (  )  ,CZ(BI«i*JAC  (0  ,  ?  )  ,n  F  *'!  (1  1. 0EV1  ( \  1  .  i>R  A  T  ( 1  1 
CATA  Z  1/  1  .CO  .  -  .i'T  1  .  J0,-1.0w.-l.  ..J,«..i.J  ,  1 .0  J,l.  '0/ 
cat  a  r-i  /  i.cj  ,  i  .oo  ,i  .co,'}.  u', m.-i  .r'C,-i.' j,  ).  'o/ 


PEG  IN  WITH  *  10  NCiJs  CF  FIRST  ELEMENT  ANC  THEN  CYCLE 
THRCLGR  EACH  ELEMENT. 


innn  m  k»  mohd 


fUEs  TLF8C 


FCHT  PAN  M  NAVAL  POSTGP.AOUTc  SCHOOL 


GM  =  G  - 
!S7A(l>  » 
I  S  7  A (2  )  « 
I  £  1 A I  ■*  *  * 

I  S  T  A  (  4  )  « 

IS7AIS)  t 
IS7A<6)  « 
I S  7  A  (  7  )  » 
1  S7A( S  )  * 
CC  100  I 

►*(  n  * 

HS<  I  ) 
CCNT  Ifi«JE 
CC  200  I  I 


1.  CDC 
3 
2 
1 
1 
1 


‘  l.HPOVtl 

CP  *  i  TCT  (  I  )  *  PTU  *  GC  *  144.000 
•  CP  »  7=yF(H  *  BT'J  *  GC  *  144.000 


200  II  =  1,*6 
Me  1  »  NT2<  II  ) 

IHNTfi  -  2)  210,220,  230 


CC  24C  V  =  l.NNE 
I£T\1  =  I  S  T  A  I  .v  ) 


1  CH  C  •  A 
2PHCT1 
3NNf  C« 


I £T \ 1  =  I  S  T  A • y ) 

CALL  £U*i:(°C  .PS  I  ,VZ,  Vc  ,NCOc  ,V  M  ,  PC  1 1 ,  PC  !  2 ,  A  L  Pi ,  Mel,  RHC1 , 
.ALP.  El,  I  r,  1ST  A!  ,y,=f-CTT,r'!,,P,  S".  3T”',s,  ri  ,•* 1,  TT  I, ; 

Tl.Hl  ,h£l ,??,C5SIP2  ,0PCIZ2,P.MS,Z 1  ,  vZ  1 , VKl ,  ZC  ,  CM kC*,  CNT  1 , 
C.M4  ,Nf.=  4,N^kS  J 
IJ<  =  N  =  -  v,3CV 


j<=<  1  !  .L".  !  JK)  CQTC  21  1 
I  F  (  Islil.f;  .3  I  GCTC  211 

c*si:z  =  o.coc 

C  ALL  C(.CT(«2.'  CT  l  ,*CT2.Tl  »PJ  .TTl  ,  f  T  i ,  u^rr\  ,  h  l  thSl, 
ri.  Ue  l,ALP2,.)P£I»'2,C:',G‘Z2,I£TU,T2,7T2,P2,PT2  ,'HC*  ,KHUT2, 
1  .vr*:  ,l‘NCf)fN=4,NNe.tNi'OSI 
I H  I  ‘141.  70.1)  OCK  24C 
Is}'*  =  NTOf  (  II,*) 

PRESS  (Ml)  a  f  2 
pt'->t  <n  r v )  =  pt 2 
TT’TIMM  *  T 1 2 
TEMMNIM)  »  T2 
MNI  <v  1  =  PI 

hsmim  »  psi 

a  RHC 2 

RHf’TT  (MU  a  KPCT2 

fl’IMM  a  AL  F  2 

V.7  (  \  I  y  )  a  I  aa.c.IC  »  3P£P?  /  (^0?  *  62  *  PCI?  /  12. JO) 

V  P  ( *!  1 4  )  a  -14J,. jCC  *  3PSIZ2  /  (-MC2  *  B2  *  3CI  c  /  12.00 
vet  MM  a  v yr  *  OTiM  aiPZ  ) 

W'UMM  =  PC.  12  *  VUM-'I 
f  NT  ®C  f  CM  y )  a  EMTl 
CCMTINLE 
GCTC  2CC 


or  ?5C  »  a  l.ANE 

ISTAl  a  I  STMM 

X  1  a  0£(NPCTn<?) 

pv»Ml  =  t?  r.  (  MC  TP  e  ♦  -  l) 

CALL  SLIM"!  PC  ,F  -  t  ,vz,  Vr  .NCO*  ,V"!  .  FC  1 1 ,  T.  I  ? ,  M  =>  1 ,  M'  l,  PWO  1  , 
lfl(-r  ,4LP,e  1,1  I  ,  I  C7J!  ,.v,r.K'T7,  TEN?,  T-?7f  PSP  :s,?TOT  ,B,?1  ,Ti ,77  1,  PT1 
2FPrTl  ,H1  ,Pil  ,d2,C  t-S  I°2  ,CP5  U2 ,  P ,nS,  Z  l.VZ  l.VPl,  !C ,  ?NTPO'» , EM  1 1, 
2NNCD,N?4  ,NA=4,M-r  u:  > 

CALL  FC‘"7inCI  1  ,Vvl,1  =  T;i,B2TA2,-;Mar.M,?«<AXl,':'!*!l, 
lCpV,rCI2  1  ,FPf  2,T1.T~1.P1,P7I,  '*.*  I  U  Hr.T  l ,  pm'-t  Z  ,  ■*:.  ,^TT,  OP  SIR  ? , 
20PSI72.CF  1C*  ALP2,P2,PT2»  T2,TT2  ,Tpy;-J  tvv2  ,  fiPASS  .NNCC  ,N  £  4  ,\N£4, 
2NPCWS) 

M"  a  NCOc  (  II,,’*) 

PPACT  ,  (1.C0  -  =P4PA  )*(  UCC  -  PP  ASS) 

IP ( f  ST  41  -  2  )  ;£3,251» 2S2 
PCCSS(MI)  i  If?  4  fU  /  2.0CO 
BfOT(Mf)  ,  (AT?  ♦  P’l)  /  2.000 
TTCnMJM  a  (7  12  ♦  TT  1  I  /  2.000 
TEMP  (AIM)  a  (72  *  TU  t  2.0  CO 


188 


,»nriA 


FILE:  TLFCC 


FORTRAN  H  NAVAL  POSTGRADUATE  SCHOOL 


HIM!*)  «  Cf*  *  TTCT(NIV)  *  PTU  *  Gf.  *  144.000 
HSINIM  »  CF  ♦  TE»P(NHI  <  PT'J  *  CC  *  144.000 
phoimm  *  ( s h c 2  ♦  phcm  /  ?.oo) 

PHOTT  IN  I'M  s  (  -HCT2  ♦  RHC'71)  /  P.COO 
AL  P  (  N  I'M  »  (ALP.?  ♦  ALP1)  /  2.000 
8FIMM  *  I PPM?  ♦  eFTM)  /  2.000 

VZ2  a  1 *4 • C  C  C  *  CPPIK2  /  (r  HC2  *  H?  *  PCI2  /  12. CC) 

V° 2  a  -l4*.C CC  *  CP S I Z2  /  ( FHO 2  *  62  *  PC  12  /  12.CC) 

VZINIM  »  <  \,Z  1  ♦  VZ 2)  /  2.0CO 

VRINIM  =  (  Vr.  L  *•  V«  2 1  /  2.0  CO 

VU(MM  a  (  V  N  7  «■  V-ll)  a  CTAN  <  AL°  {  M.‘M  >  /  2.000 

wlmnim  =  (vvz  f  vmi)  *  dtammin  rvn  /  2.000 

W?L(MM  a  (PCI  1  ♦^C  12  I  4  VUINIM/2.COO 

(■PIMM  =  HIM*I  -  v,G«(PCIl  +  ?C  I  2  )  *  VUINI'M/2.000 

ENT  PC  F ( M  M |  =  C.5C0C  4  ENT 

GCT H  2  EC 

2*2  P°E  S S  (Ml  )  =  P 2 

PTPTIMM  a  ° T 2 
TTO  T  (MM  a  TT2 
TS,(P(MM  a  T2 
CEVll  MM  a  0£V 

H(NIM  a  CP  4  TT  2  4  BTU  ♦  CC  *  144. COC 

(•SIMM  =  CP  *  T2  «  BTU  *  GC  *  144. COO 

RHC(MV)  a  PNC  2 

KHOTUMM)  a  rhCT2 

4LP(MM  a  ai?  2 

£!:(MM  =  6  ETA  2 

VZINIM  a  ;  44. COC  4  OP c  I  -  2  /  MHOZ  4  B2  *  SCI?  /  12.00) 

VP  ( *S !  f*  >  a  -1<<<<.00C  4  0PPIZ2  /  (  p<  H  C  2  4  n2  4  ?r.i2  /  12.10) 
VUINFM  =  VN2  *  C  T  AN  (  4L°2  ) 
kl(  MM  =  VM  *  CTAMCET42) 

WPL  I  My  )  =  PC  12  4  VU(  NIM 

HP  (MM  a  r  (  M  M  -  WG  4  H  C 1 2  *  VO  (N  I'M 

£  \  T  9  C  F  (  M  «M  =  ENT 

GCT  0  2  EC 

25  2  651  NIM  a  S  E  Tf  1 

taU*  MM  =  VM  *  CTANI  OETAil 

(■PIMM  =  HMM  -  *G  4  sell  4  VUIMM 

E  T  A  (  N  1 M  a  (TT1/ITT2  -  TT  1  ))*((( ? T 2/PT 1  )** ( ONI /G  )  )  -  l.OCO) 
PRAT  ( N  I’M  a  PT2/  =  T1 
25C  CCNT  I  M.  F 

GOTO  2CC 


or  2fC  M  =  1.NN2 

1ST  A  1  =  1ST  A  CM 
RMX  1  a  SC  (  f STATG) 

P >*  1^1  a  ><-(AP TATB  ♦  '•■r.l  -  1) 

M'i  a  ncoc  1 1  id 

cau.  <i  i*i= (  pc  .  P3 1  ,vz.  vp  , \cr :  ,v-m  ,  pc  :i , 
1RHC  ,Al=>  .  E  !  ,1  I  ,  IS*A1  ,  ,  -hptt.T  -  •"=,  ?T')T,»h; 
2FHCTI  ♦  *-  1  *bSi  .62,'  PS  1-2 ,0?S  I Z 2 »  H.HG.Z  1 ,  vZ  1 
3NNCD«'Jr4  tN‘r4,\rr  m  I 

I F {  ISTA1. 1 0  .  I  I  GC TC  264 

0FT41  a  A  LP1 

GOTO  265 

0ETA1  =  UFIMM 

C  '  L  L  «T.Ti;ni  ,VM  »  PET  At  .  EFTA2  f  P.  <  !OR  , 
lCEVtPC  :  2  t-'HOi  ,P-'rZ»  rlfTTl  ,Pi  .  C  T  1  .  iLJ  2  ,rHf 
2GFSI72,0fAC»  ALF2,P?«r,T2,  TL'.TT;  .TO  "M  ,f"2 , 
2  N  P  C  a  p  ) 

RF4CT  a  (  l.CO  -  RPSSS  PM  l.OC  -  " P  A  f S) 
IF ( (  '  TA  l  -  2  )  263  ,261 , 262 
P9cSS(MM>  *  ( i’2  ♦  =  lt  /  2.  COO 
PTC-fMM  =  ITT?  >  P  T  l )  /  2. QIC 
TTOTIMM  a  (TT?  ♦  TT 1  )  /  2  .COO 
TENP  (  MM  a  ( t  2  ♦  T l )  /  2.0CC 

HI NIV]  a  H 
l-S(MM  a  h«1. 

RHO (NIM)  =  (°M"2  ♦  VHO]  I  /  ?.000 
PHOTT  !M(I  a  (  p  H  C  ‘s  2  ♦  PH0T1I  I  2  .  COO 


5C ! 2 ,  AL 
S  S  ,  i>T  ”  T 
.VM,  ZC 


4M «  XI  ,  U 
T 1  .  -  H 
RPASS,'1 


p  1 ,  T  2  ! . 

,  4  ,  Y  1  ,  T  1 


•I  INI  , 

’ ,  ■:  ,:’'T 
,00  , N c *. . 


'  HP  1  , 

,  T  T  1 .  P 
-NT1, 


,  n  o  s  i  r 


nnnno  n^nnnnnnn^nnnnn  ooo  hok^i 


FILES  T  L  F  6P 


FORTRAN  A 1  NAVAL  PC STGRAOLATF  SCHOOL 


ALPIMM  *  (RETA2  ♦  FFTA1)  /  2.00C 

VZ2  =  144. CCC  *  CPS  IP  2  /  (RhC.2  *  t)2  *  RCI2  /  12. CC) 

VP  2  =  - 144. CCO  *  POSIZ2  /  (FN02  *  R2  *  PC  1 2  /  12.  DC) 

VZ(NIM  »  <  VZ1  +  VZ’>  /  2.jC0 

VMMH  =  (  VM  ♦  VR2)  /  2.^CC 

VUIMM  =  ( VN2  *  VM1  )  *  CTmN  (  ;l>>(  MM)  )  /  2.0D0 

ENTRCMMM1  *  C.  5000  *  ENT  ♦  f  NT  1 
nPLCMP  I  a  PC  1 2  *  VUtNlMl 
GGTC  26C 

265  PRESS  (MM)  -  ~2 

FTHT  (MV)  =  PT  2 
TTDTlMN)  *  T\2 
TEMP(MV»  =  T  2 
CFV1  (MV1  =  CSV 
H(NI  P  I  =  1-1 
hS ( N  I  h  )  =  hSl 
PHC ( N  I  w  )  =  FhC2 
RHOTKM-n  *  '  h  0  T  2 
ALPIMM  =  ?Et22 

VZ(MM  =  144.000  *  CPSIR?  /  ( P.HO  2  *  92  *  PCI’  /  12.00) 
VPINIM  =  -i4*,.0L'C  *  S I Z2  /  C'-)C2  *  62  *  *C!2  /  12.00) 
VUIMM  a  V  V  2  *  CTANI  il  P’  ) 

VPLIMH  =  PC  1 2  *  vLlNfM 
ENT PC  F  (  M w )  =  ENT  ♦  SNt1 

GOTO  5  cO 

26  3  ETA  (MM  =  FT2/PT1 

PPAT(MV)  =  FT2/PT 1 
26C  CCNTINLE 

CC  CCNTI'JUt 


RETURN 
£  N  C 


^SLeROJTIN?  ShAPc(F,Z,3Fj 

44  THIS  SUPSCUTINF  CALCULATES  T  h"  SHAPE 

44-  LOCAL  •')C:)r''  fC'.O  Fn  CM  LEFT  T)  RIGHT, 

♦  ♦  IN  ThE  i~  t  RI.AVE. 

++  CALL  STAT'^'M  OEFIMTIGNC: 

z  =  valle  cf  the  sxcifs  imflt 

44  F  =  VALLE  Cc  Th-'  7 TA  P'^JT 

+♦  sf  =  shape  flncticn  vEcn:;3 

44 

4+444444444444  4+ 444444444444444444444  44-  +4  +  4+4 
4444444444444  +  44-  +  44444444’4+44-.44444444+4444+4 


4444444 


FU'ICTJONS 
-1CTTCM  7C 


4  4 
4  4 
4  4 
44 
4  + 
4  4 
4  4 

•444444 


44444444444444444444444 

444444.444.444444444444 


INFLIC  I T  PEAL* E(  ' :  -h  ,F-Z> 

C INE.NS! CN  SF  <  5  ) 

SF(1)  =  I  Z*E  ♦  Z*7  ♦  E4F  4  Z*Z<F  *  Z<E*E  -  1.00)/-.. PC 
S  F  1 2 )  =  ll.oC  4  i  -  -  Z*  £<-')/’.  00 

S  F  (3 1  a  <-Z*F  4  ,!*Z  4  2*E  4-  Zr  /•=£  -  Z*L*E  -  l.  00) /A. 00 

<F(A)  =  c.nc  -  -*F  -  :  4  Z*£*E  i/p.oo 

SF  ( 5 )  =  <Z*r  4  £*Z  4  c*=  -  Z  *  .7  4  E  -  -  1.00)/4.00 

SF  ( A )  a  (l.K  -  c  -  7*Z  4  E*Z*Z)/2.0C 

S  F  ( 7 1  =  l -l*r  ♦  ?*Z  4  E  -  E  -  C*/*Z  4  Z*t*S  -  1.001/4.00 

SFM)  a  (1.00  -  E*E  *  z  -Z*E*E  )/ 1. 00 

FETUPN 

ENC 


SlEPPJT  IN  E  INPL’T  1  7C  ,vC  ,  *-LP,i'E,NTE,  7CCE  ,PPAT,nF  VI  .  ’>0 
1UVEL  ,PS  l  .FSI  C,  TE*  Ttct.u.  esS.  PTLiT,  !OCTT,NFS,;iOC,  V.TLr 
2NRCTCP,NNC'0,f.:E4,.\M4tNf  Gwr  I 


AD-A124  987  FINITE  ELEMENT  PROGRAM  FOR  CALCULATING  FLOWS  IN  3/ 

TURBOMACHINES  WITH  RESULTS  FOR  NASA  TASK-1  COMPRESSOR 
(U)  NAVAL  POSTGRADUATE  SCHOOL  MONTEREV  CA  J  A  FERGUSON 
UNCLASSIFIED  OCT  82  .  F/G  2874  NL 


FILE:  TLK80 


FCRTR AN  A1  NAVAL  FCSTiRADLATE  SCHOOL 


IMPLICIT  FtAL*E(A-h,P-ZI 

INTEGER**  NR EAC  *  N  NR  I ' F  , I  C , NNCC  . NE4.N  NE4t  NRCrfSt  L  IMR »L  IM ! 
CCVON  /NCC.JNT/  NCOL»NCOLl  »NN»N£ 

I  .NNF.NNfcC  .MNHC 

CCPPON  /FCC«t/  F'«*G»CP*PT  «TT  » l*G  *wD  CT  »  FHCT  «  PHCST  At 
ll*IALE'r»LCUt?T»PSlT«4TUtl:2I2»Firi»GC 
CO^CN  /NCCUNT/  PFOh  »KK 

CCMCN  /IIC/  NREAL.Ni.RIT5 

C  I  PENS  ICN  iC  tl  ).’C(  1).  f?(  1)  .ALP  C 1)  .*£  C  1I.RH0(U  .JVFLU) 

oi pension  p>im  tpsiom  «title do  >,r>svi<  i » •»»*-  arm 

C  IRENS ICN  TSMPUI  ,-TrT(H  .PRES Sill  ,»TCT(’|  .PHOTtuj 
Cl  PEN'S  I  CN  NFS  1 1 >,NhC(l  ) 

CIPENSICN  \T  = 111  ,NCCS(NF4,ll 
CATA  STC  F/ *S  TCP ' / 


R  E AC  NCOS  NLMKSKS  »NCCAL  CCOROtNATES  (IN  INCHES) 
NCCAl  BLOCKAGE  FACTCF.  INLET  ST AT  !C  l  ZC  II  MUST  _ 
LAST  NCOAL  2C(.4M  PUST  fi=  AT  THE  CUTLET  STATION. 


BE 


A ‘JO 


:o. 


loco 

17C 


171 


DC  170  I  *  1 »  N  N 

READ!  ;C,ICCCIZC( IliPCIlItGI I) 
FOP  MATI3Flf.nl 
CCNilNUE 
CC  171  I  ■  1  »  NN 

e  <  I )  *  Eli)  *  C. 91 


CCMINUE 
IT  1  »  NRCTC3 


I T  2 

a 

♦ 

P«CW1 

IT2 

a 

♦ 

MRCW  ♦ 

1 

IT* 

a  : 

T  3 

♦ 

VP  Cal 

ITS 

* 

T4 

♦ 

PPCv*  ♦ 

1 

IT< 

» 

TS 

♦ 

MRCal 

ITT 

* 

[T« 

ppcw  ♦ 

I 

JT1A.  «  III  ♦  1 

I T2A  -  ITS  *  1 

I TEA  »  IT3  ♦  1 

IT*A  *  IT4  ♦  1 

IT!A  «  IT?  ♦  1 

ITC A  *  J  16  ♦  1 

IT  TA  *  ITT  ♦  1 
IT  3B  *  I T3A  ♦  1 
TIP  BLOCKAGE  FCP  734 
P<  IT3I  *  B(  I T 3 1  *  C. 
E  ( l  T  4 )  «  ,?(  IT*)  < 


e<  IT5  1 
e(IT3A» 
e  (IT4A1 

e  (IT5A) 

0(1738  I 


‘3 (  ITS) 

»  b( :t3a » 
»  a<  it*a  j 
-i<  I  T5A  ) 
B(  IT?0  1 


TIP  BLCCKAGF  TCP 

e c it?  i  «  *( : T2 *  * 

f  (  IT-V)  «  °(  IT*  1  « 
e(iT5i  «  ei  its)  * 
e(IT34l  *  3CT3A1 
e(IT*.A)  «  OCTti  ) 
B  (  ITS  A  )  «  3  « I  T5  A  1 
g(  IT 38  1  «  H(  I T3P  ) 


c. 

* 

* 

» 

304 

J. 

0. 

0. 

* 

* 

* 

* 


C53IGN 

-coo 

'*•  300 
3  7',’C 
<3.°2JO 
0.OH00 
3.v9»0 
0.^700 
C3SIGN 
3  50  C 
1700 
•>’00 
<3.9  TOO 
0.«300 
J.0570 
0.0  200 


RE  AC  IN  CCN'IFCTivm  MATRIX.  LOCAL  NCOE  MJM3EPS  START 
AT  ELEMENT'S  cPPEf  R  !GHT  r  ANC  CC/.‘;5R  AND  ThAV=aSE  CCV». 

R  E  AC  IN  1NE  TLEVENT  TYPE  INDENT  IF  A  T  !CN 

CC  1B0  J  >  1 ,NE 

R£AO(  3C»101C)  NODE  (J»l)»NCCE(Jt2)  ,NCDE  (  J,  ?  )  ,.T30E  (  J  .4  > 
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■  -.•:^oV->Vvuv 


aV\ 


me*  tlpbo 


FORTRAN  Ai  NAVAL  POSTGRADUATE  SCHOOL 


I'- 


1C  10 

jac 

c 


L  ,\’nOE(J,5l ,NCDc( J.6I,NCC£(J.7) ,N3CE < J *8 ),NTP ( j ) 

FORMAT  «  V 1 5  1 
CONTINUE 

READ  IN  INLET  THERMODYNAMIC  CLANTIT IESj.  FLO-  RATE* INLET 
U  VEL^f  ITY.GUUET  vi  VELGC l T Y , FHCT.R HOSTA , PTfl I ,  TTCT  ,N 
UMTS  AFE  \S  FCtlCwSS  FLOW  F  ATE  (LE«/S=CI 
VELOCITY  (FT/  SEC  )  ;  A  HOT  AND  FHOET  A  <L3*/CU  FT  I  ; 

FTCT  ( PSF )  i  TT  (  DEGREES  RANK INF)  J  SPEED  (RPM) 


^034  PBtni 25,  TC35>PPSS.PT,TEM,TT,f»HCSTA,RHC7 
1035  FCF*AT  (Mll.t,2Fl2.8  I 


t 

C 


READ  IK  FLUIC/GAS  CONSTANTS, R (GAS  CONST  ANT) , GANNA,  CP lf!TU/LSM-R> 


1037 

C 

C 

C 


166 


RE«n<2«,K37)WCCT  ,CP  *RG,G  .SPEED  ,U INLET 
FCPWAT(All2.7,F8.i.F13.8> 

FI NC  OP EGA  (RAC/SEC) 

WG  *  SPEED*2.CC*3.1415R3CO/&0.  CO 
LIMET  «  LINlE  1*12*  OOQ 

CONFUTE  THE  FIRST  ESTIMATES  OF  UVEL(I)  AND  RHOII). 

CC  lfcft  I  «  l.NN 

L'VEM  I)  *  U  IKET 
PHIM  I  )  *  RHCSTA 
TEM° (  I)  »  TEP 
TTOT (  I)  ■  TT 
PRESS  <11  *  FFcS 
PTOT  ID*  PT 
RHOTT(I)  *  FHIT 
CONTINUE 


NNEC 


PE  AO  NOCES  WHERE  PSI  IS  SPECIFIED 
NCCU  ♦  YRGWl  -  2 


1020 

15C 


CC  1<?0  I  *  l.NNHC 

™cin 

CONTINUE 


REAC  IN  THE  FIRST  ESTIMATE  OF  SYSTEM'S  PSI  DISTRIBUTICN 

CC  1R3  I  »  l.NN 

PEAC (‘0*1021)  FSI(I) 

FSICIl)  «  F 5 1  (  I) 

II  FORMAT  (FI  5*  11 ) 

I  CONTINUE 

L1NLT  -  LINLcT  /  12.000 

FINC  NODES  WHERE  F(P*Z)  IS  SPECIFIED 
NNN8C  «  HN  -  N NBC 


h 


lose 


PRINT  ALL  INPUT  OATA 

GC  TC  1 1 C 1 

i*FITF(NWrITE,IC3?  (TITLE 
FCFM.'T{  //////✓///•  •  ,2CX  ,10A4) 

WRITC(\|WF  ITc.lOC  INN.Nc 

FCF"AT('  • *  V  X  *  *  NC  .  CF  NODES  *  '»I3*27X, 
l *  NC*  GF  ELEMENTS  «  1  *  I  2 » / I 
WRITE  (NWF  ITc,  1CM  J  »RC.*,NCCL 
FCHPAT(5>,«NC.  CF  RCWS  *  *,I3,28X, 

1  'NC*  GF  CCUJMNS  *  ',12. /I 
NFTTFjvwf  ITF, LC*E » 

FCF-y  NT  I  '  •  ,2C*,'SL,'PAPY  CF  NCCAL  COD  FO  IN  AT5S '  ) 
GCTC 

WF!TF(N,*FITR,1C5D  ) 

FORMAT  I  •  • VCDS'  ,SX,'Z(  IJ '  ,  11  X, '?(!)•  ,UX,'R(I  I 
1  7X,'APS  FLO  ANC  ' *  3X* 'R  UL  FLOW  ANG'/» 


i 
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FILES  TUBC 


FCR7RAN  At  NAVAL  PCSTGRADL ATE  SCHOOL 


C  •  l. 

CC  IC5?  f  »  1  *  AN 

Wfi  ITE(NV*R  ITS,  1C6C)U,ZC(I),  PCI  II  ,E(  II  » ALP(  I )  ,RE(  III 
IFII.fC.MNI  GC TO  1054 
IC  »  I 

OQ  «  FLCATIIC)  /  AC. 

IFICC.AF.C)  CCTQ  1052 
VP I TE (NVRITf  ,1C53I 
FORMAT («l • | 

VRITF (AVRITE, 10451 
WRITE  INCITE. 1CSCI 
C  ■  C  ♦  1. 

GCTC  ICS? 

VP.  IT3?Ni»RIT£*lC531 
CCNTtNiJC 

FCF*AT(  *  •  ,1  2.2X,rl3.6.2X,Ei3.e,2X,E13.6,2X,E13.6,2X,E13.6l 
WRITE (NVFITS.IC62) 

FC Fv  AT  ( •  •  ^fx.'SYSTB**  TCPOLCr.YS//,  2X, 'ELEMENT', 
liCA.'NnOfl'iACX,' TVPC  CF  ELFVCAT'I 
VP  ITF(‘iV?lTs  ,Ufr2l(  I, NCOS!  I,  II  »N31?(  1,2)  ,N005<  l, 3  I. *00? <  I  ,4) 
1,KCD':(  I  ,SI»NCCE<  I  ,M.MC22lf  .7)  ,NuC=C  I,  9  )  ,\Tg<  I )  ,  1*1  ,NS  ) 

FCPMAT ( •  ',3X,I3.tX  ,13,3X,13,3>,I3,3X,!3,3X,I3,3X,I?,3X,I3,3X, 13, 

1vS{1I{nvFITc  ,IC44IV,CCT,PMOT,OT  ,TT,  S FEED ,UINLT,P G, C,CP 
FCFMATI///'  ',]4X,'I^LlT  tH£  l,Mt.CY^  AMIS  VAPIAi*LcS  Af-.E  AS  FOLLOWS', 
1//.4A, • FLC*  *AT F  ■  ' »rl3 .c  »*  L GM/SeC  •  ,// ,*<, 'TCT  OENSITY  « 


E!?.N,'l^P  CL  FT.//.4X,' 


P?  =  SS'J«E  - 


, cl3.fi, 1 
ME'  ,//, 


FT /SEC'  ,//, 


1 3  «fi»//» 

SSLPfc  *  ’ ,E13.6,/I 


INLET  »  ', E13.fi  I 


3,4X,*TLT  Tc-»PF?ATLr.E  »  ',er?.fi.'  OEG  P  AN  K I  ME '  ,  /  /  , 

4  4X»'®“T#Tin\AL  SFEEC  ■  '  ,  !=1 2. 6,'  «P!*',//, 

5  4>»' INLET  J  .cLCCITY  ■  ',El3.t,'  FT/SEC',//, 

7  4X,T,A«  rrN<TAW7  ■  »,E1  l.fi.//, 

8  4>.'Xi?K  U?  SPrrrFIC  HcATs  -  ', 5t 3  .fi,//» 

9  AX.'SPFLlFfc  AT  CONSTANT  PR-?SSL«fc  »  ',E13.6,/I 

WPITP(NvMTE,tCfi*  IFhCSTA 

FCFMA • ( '  ',3X. ^STATIC  CENSITY  AT  INLET  -  *,E13.6) 

WR  ITE(**i,P  I  >E  » 1CS3  I 
W  F ITC ("W  F IT? , 1C73 I 

FCRMATf*  '.AX.'NCCES  »HfRE  PSI  IS  SPECIFIFO* ,///,4X, 

1VPIT?(Nvf,IT^lC30l(MC,ll  I, PS  MNeCCII  ),  I*  1 ,  NN3C  I 
FCFMATC  *«5X. 13, 1CX, E13.fi! 

WFITF(NVFIT5,1C53 I 
FFTLHN 
f  AC 

StePOUTlAE  7SRCUF.  PSI  ,FH5,UVEL,VVEL  .TVEL , PRES S, RC , ZC , 
19  ,AFS,*i3C  ,*.RL,FhC  ,^htN,rl,l«S,  ALF.TW'L  ,  "  i,  22  VI  ,PP  f.T,*M, 
2EF*,?:TE,Ar.:E  lH9,:\r«'’®  ,g  Ti  ,*fi-  •  C  ,A’54  ,  A  A  C4  ,  A.  TONS  ! 


IAFLICIT  FFAl*«(A-H,F-JI 
INTEOgRM  NPFac.NVS  ItE,!C,NNCD,N=4,N 
CC!»MCN  /FCC'-I  /  PC,  C,  CP,  PT,TT,*G 
LIALTT  ,  LCLlS  T  ,FSI  I,-,T*i,F2IP,Fl  11 »  SC 
r rwwr.M  ttrr  tnj  \cm  .  irri  t  .pjk. k? 


lLlALrT  , L  CLL5  T  *  F  j .  . . 

CCF»£.M  /ACCJ*T/  NC»'L,  iCGLl  ,NN,Ac 
1,AAS,NNGC,NNNRC 
CCMCfi  /KCUNT/  NfCV  .MPOWl ,KK 
CIPEf  SICA  \Tc(  II  ,A:'CEtr.ct,l) 

o  I  pens  I  c  a  ET:(e,*),s(i),p^ni),p.HS 

C  |PF?  SICA  UV.'l  (1  !  ,VVEL(i I  ,TVEL  (II  , 
ClPi'CTCA  •:(  1)  ,»=■_<  II, Zf.(l),AHC (1) 
CIPt'SICA  ** (  '  I  .HP  (1  )  ,ALP(1 1 ,  EE  (1 1 , 
D1PEASICA  Nr  §  ( 1 1  * N*1  C  ( 1 1 


iE4»MAE4,NF",V,S,L  I*1R  jLII*I 
007 , PhCT ,RriCST  A , 


CIPt'SICA  H(i I.HSIll  ,AL 
D1PEASICA  Nr  §  ( I )  ,  A*1  C  ( 1 1 

IN  ITT  AL  I  2c  ALL  MTRICES 


■EAJie.- ). f<i i,P3 :i  n.p.HSt  1  i.fmcinoo,  u  ,etm  n 

UV.'L  (1  !  ,VVEL(i I  ,TVFL  (l!  ,PRCSS(  1 1  ,?C<  1 1  ,C:Vl(  II 
•;(  i)  ,.*=!.(  ii,zcm,AHrm,Rhr\(  ii  ,h?(  ii  ,P2Aim 
r*m  ,H«  <1  I  ,  ALP  II  I,  EF  (11,  TV  EL(1  l,-NTF.OP<  1 1 
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OOOOOOO 


TOT 


'C-'O’v 


me*  turbo 


FORTRAN  A I  NAVAL  POSTGRADUATE  SCHOOL 


11C 

ISC 

lftC 

It! 


CC  110  I  «1,  NN 
Fill  «  C.CC 

psi  m  «  o.co 
RH$(  1 )  ■  c.cc 

UVEL ( M  >  Q.CC 
VVEL (  I)  «  0.00 
TVEL ( 1 I  »  C.CC 
PRESS  ( 1 1  *  C.CC 
PCI  I  I  «  0 .CC 

zee  I  I  >  o.cc 
(III  *  c.co 
NFS!  II  «  C 
ETA  I  1 1  «  C.COC 
NBC (II  *  3 
hFLI  I  1  «  C.CC 
RHO(  I  1  -  O.CO 
BHJNI  1  )  *  O.CO 
ENTRCF(I)  »  C.CO 
Mil  «  C.CC 
HF( I  I  «  O.CO 
HFI  II  «  J.OC 
ALPI  II  «  C.CO 
TkELi  II  *  C.CC 

an  ii  »  o.cc 

c£vi  (!)  «  o.o^c 

PRAT  (  1 1  »  C.OCC 
CONTINUE 
CC  ISO  I  *  l.NN 
00  ISC  J  ■  l.NN 

syu.ji  •  c.oc 

CONTINUE 

CC  IfcO  I  ■  1.NN5 
CO  1  EC  J  *  l.ME 
EMIIiJI  a  O.CO 
CONTINUE 
OC  lo5  I  «  l.NE 
NTE (  1 1  «  C 
00  U!  J  «  l.NNc 
NCCE  (I  .J)  «  0 
CONTINUE 
RETURN 
ENC 


SLEPCOTIIE  OUT njT  (X, KX . U V=L, VV FL, TVEL.TWPL. PSI , PC, ZC 
i  .pt-o.  wi  ,h,hc,t:>p,ttut,‘so=ss,ptct,’hc-t  ,alp,b‘, 
’nncc.nsa  NE  *  j ) 


1AC0 


IPFLIC’.T  P£AL*f (£-H  ,P-Z) 

INTgr.tR  *4  *A*AC^M.  I  T£  ,  I C ,  MNiCD  ,15  4»NN24,NRCWS»  L  HP  ,LI?41 
CCN"C’I  /FCC'JNT/  N  CUl ,  NCUL1  » NN,  NS 
1  jNNE.F'NIlC  .NNN'RC 
CCPPC"!  /Wf/  V«»=AC.N<*iMTE 

CCP*'CN  /FCC'T/  FG,t,CF,FT,TT,Ui'.,^OCTt  Fl-CT,RHOSTA, 
1L|M.RT,UCUL0  UPS!  I,. 4TU,F  2!  2,F!  11,  iT 

c i ps's  ic n  ?c (i  i,~c<  1 1, ?i-oi  ii,h(  n.  ism.psn  11 

CINFNSICN  UV?L  (U  ,VV  =  L(ll,rveL  III  ,MU1I,TWEL(1I 
CTPFNSirN  TS  jo  (!)  fTT.-f  (II  .PRESJUI  ,PfrT(I»  ,^HOT+(  l) 

CIPENSICN  ILPm.FEIl) 

IF <  IFL.EC.l!  GCTC  45C 
kF  IIP  (NK  F  ITE  ,  l  Fv.  U  >KK,X 

FCF’4’  r  ( *  •,*fscgs;m  TrPMirjaTSC  r*i  it's/tion  no.%13,/, 
l*  RESULTS  I.HICH  FCLIC*  AR=  FOR  CONVERGENCE  EPSIf.N  »  '.OIP.! 
OCTO  13 1C 


2) 
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FILE*  TLP80  FORTRAN  A  l  NAVAL  POSTGRAOtaTE  SCHOOL 


GC7C11 04 
WRITE  INWI 


WB  ITC  T  N  NF  1 7?  ,12CC  )KK ,X 

FCPMATI*  •,,ST°f-.A*  FUNCTION  CONVERGENCE  CRITF*  tON  SATISFIED  ON  ITS 
1 R  A  T I  CM.  MJiv3  "R  M*,//,'  RESULTS  ARE  AS  FOLLOWS  FCS  CONVERGENCE 
2EPSILQN  «  0  IS.  12) 

WRITE  CUT  RESULTS 

ccic  me 

CHANGE  UNITS  OF  VELOCITY  TC  FT/SEC 

CC  fcOO  I  ■  l,N» 

UVELI  I )  »  UV“L (1 1/12. CO 
WfcL  (  I )  »  w:U  I  )  /12.O0 
TVEL(I)  *  TVEL ( I ) / 1 2 • 00 
TWEC  (  I)  »  Tl»"  l  (I  I  / 1 2 .  CO 
ALP  (  I  )  ■  ALFC  I)  *  57.  2*=  578 
WRLII  I  »  L  (  !  )  /  l<t4».J.OO 
B?II)  *  3E(  I)  *  57.20578 
HI)  «  WIT)  /  <GC*144.O0C*».7U) 

HS( I  )  «  HSI  I)  /  <GC*144.0C0*HTU) 

CONTINUE 

WR  ITc(Ni»F  ITE  *  1  ICR  ) 

FCFYATI  •  I* I 
WBIT=C*iLFI7e  ,111C) 

FCPVCT  (  •  ',/////,  27X,  'FINITE  ELEHFNT  RFSULTS* ,///, 

1 •  NODE !  ,‘X,' PS  II  I  )' ,  LJX, *VZ' »l 3X, 'VR*  ,i2X,  *R ( {  )•  ,10X,  ‘DENSITY •/) 

C  -  1. 

CC  1122  I  *  l.AN 

WR!TE(NWFI7b»li20)II*PSI(I)»UVEH  I ) »  VVEL  (I)  .PC  (I) ,  PH  (!) ) 
JFII.EO.NN)  GOTO  1124 

CC  -  FLCAT(IC) /4C. 

IF(C.NE.CC)  GC TC  1122 
C  ■  C  ♦  1. 

WPITEINFFITE  ,1C53  ) 

WPITC'NWFITE.lllC) 

GC  70  1 1 2 t 

wpnrcNwFnE  ac52) 

CONTINUE 
CCF  7 1. Nile 

FC  PH  AT  (  •  •,I2.2X,C13.6,2X,013.6,2X,D13.6,2X,D13.A,2X,C13.6> 
WFITC(NWeITEtll?l ) 

FCRMAT  (  •  '  ,'  NCCE '  ,5X,*WRL(I) 1  »10X,*HT*f13X,*VT* ,  12X,  ‘WTSUX,  *hS*) 
C  -  l., 

wSlTcfluFlTE  il3CC)(  I  ,wRLI! )  ,H(  !)  ,TVSl  (I)  ,T*EL(  I ) » HS  ( 1 1  ) 

FORMAT  I  *  •  ,1  2  ,2X,ni3..S,2X,D12.  «.,?<»  3  13.ft.2X, 013. 5,2X013.6) 
IF(t.EO.FN)  GCTC  1324 


c£  *  £lC<T(IC)/4C. 

IFU.Nc.CC)  GCTC  1323 
C  ■  C  ♦  1. 

WRITEDWF  !TE  ,  1CE2  ) 

WP]7f(NVF  IT?  .nil  ) 

GC  TO  1322 

HeITr(NVFITS»lC?7 ) 

FCRPATI  '1M 

CCNT!f')E 

CCFTP'U* 

WR  1TC( NVF  17" » I  4? I ) 

FCPMATf  •  '  »5X»'TEMP*  »  11X»  ' TT07 •  OIXOPRESS'  ,11X, 

1  •  F 7'jT*  ,  1 1 X  * '  CT  *  ) 

C  «  1. 

CC  1422  I  «  l.NN 

WAItf  (NVFIT?  ,1400  )(  I,TEK?(I  ),TTOT<!)  .PRESS  ( I),  RT.JTI  I  ) ,  RHOTT  ( I  j  ) 
FCPMATI  •  SI 3,2X.C17.o,2X,Ol3. ft,2X,J  b.6  ,2X,013. 6 ,2X  ,013. 6  ) 

IF  (I.FO.m  GC70  1424 

&  •  FLCATIIO) /4C. 

IF(C.NE.CC)  GG7"  14?3 
C  «  0  ♦  1. 

WRITEINWFITS ,IC52) 


tW. 


me  i  TiPBo 


FCRTPAN 


NAVAL  PCSTGPAOLATS  SCHOOL 


IiP!TE|NLP!TH,IA?1| 

SS  I?E I'ThF  ITS  tiC53l 

CONTINUE 

CONTINUE 

kRITECNwPITE.UOl 
PrR4/1(2x,'  !*,U. 
CC  100  I  •  l  .M 

IiRIt4<nw!tE,120» 
FORM M  (15  .2  F1U  .e  » 
CCNTINUe 
PETUFN 
EKC 


*  ALPHA* ♦ 2X»  *  SETA* //I 

i.AiPm.eem 


SL6PCUT I  Ac  OUCT ( 
2?FC1,ALF1,ALF2.C 
3VP1.VP2 
C  +  +  + 

C  ******************** 
C  ♦♦ 

C  44 

C  4444444444444444*444 
C  4444444444444444  4444 

C  IPFLICIT  F  S  A  L  *  5  ( 

IATEGcR*4  NR  =  1C 4 
CCP«C,N  /NCt'.IKT/ 

1  .MF.MNeC  ,Y!'!MC 
CCP*CN  /fdt-4/  PG 
ILINLET.UCLLCT.P? 
CCA  PON  /  A  C  C’JN  T  / 


P2.P.rn.3C12  4Tl,Pl,TTl  »PT1  fAHOTl  VHI»HS1» 
FSTR:»Ct*S!Z2  4lSTAl,T2,TT“.P24PT2  4PH':2t?H0T2, 
«A\E4.\*CWS) 

#44444444444  ♦  ♦  44*  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4 

**************  ********************************** 

** 

** 

**************  ******  ************  ***********  ***** 
************************************************ 

i-H,P-Z> 

M*  M  I  T?  •  I  C  » NKCC tN=A,NNE4,NR0WS,LrH9,LIMI 
>CGL.\CCL1*NN».\E 

.GtC?,PT4TT,v.r,  ,-.Kt4PMCT,PHCSTA, 
?:,^Tu,F2T2,FlIl,Gr. 

UK*  tMPCwl 4 KK 


1 


1 


SEC  I A  VlTH  *10  NODE  CF  FIRST  ELEMENT  ANC  TFEN  CYCLE 
THKCLGJ-  EACH  ELEMENT. 
hFlTEU,*56) 

IFCISTA1.&C. II  GC TO  300 
IT  «  0 

CPI  »  G  -  1.100 
GP1I  »  l.COO  /  G'M 

EPSl  ■  1  •  v  *3 

PPC2  -  PFCl 

VP2  *  (CSC -T  (CPS!?.2*r.PEIR2OPSIZ2*0PSIZ2>  I  -  144.000  / 

1  (fiK?*c2*s<'  12/12  .00  > 

ALF2  *  C  A  TAN  I  (  FC 1 1  *  V*'*  *  0TAMALPI»)  /  ("Ct?  *  7M?») 

T2  *  TT 1  -  0-*l  *  (VP'*V*2*< l.OC  *  (OTA.N(  U.P2)  )**’))  /  (2.00  * 
1  G  *  RG  <  GC  *  1 A4.CC I » 

P2  «  PT1  *  ( T2/ttii**(0«GM1I ) 

PFC2  *  ( F2  *  144. CO)  /  (OG  *  T  21 

VP2N  »  (CS4?.T(nwS  IF?-»0PSI‘;24CPSIZ2*0PSIZ2I  I  *  144. CDC  / 

I  (RPC2*-?2*FC  12/ 12.00 


CIFF1  ■  CiPSIVP?  -  V  '  2  N ) 
IF(OIFFl.lT.cPSl)  GOTO  350 


V**2  »  VP2N 
IT  »  I T  *  l 

IFUT.GT.K3J  GCTC  2C0 
CCTC  100.^ 

FCF^ATf » ‘cONVC^GENCE  NC"  REACHED  IN  20  I TERATICNS  .CUCT*/) 
rCNTI''UE 

PPAC«2  ■  VP2  N*  VP2N* ( 1 • 000  ♦  (CTSN ( \L F2 J )**2  )  /  ( G*RG*GC*T 2* 144. C I 
CLANT  «  l.COO  •*  (G,U/2.J0J*RWACH2 
FT2  ■  P T  1 
ITS  «  TT] 

PKTP  *  (PT2  *  144. CC)  /  (RG  *  TT2) 

ccntjnue 

RETURN 
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fllE:  TLP8C 


FCRTPAK  A1  NAVAL  FCST'.PADLATE  SCHOOL 


SLeRCUT  IkE  RCTCIBCI  l.V'U.&ETAl  .BETA?  .3PAC HP.PM4XI  •  P ^ I l  , 

1CEV.PC  12  iPH:31tPHC2»Tl«TTi»°l»PTltAL?I,  PHOT!  *  ft  HOT  2»ri2*'>4T»OP$IRZ» 
2CPSIZ2.CFAr.ALF2.P2.FT2.T2.TT2 .7JVSG  »V*2  .PPASS  .XMIO  .AS4.UNS4, 
3KFCWS) 


IMPLICIT  ft  -A  I.  *  I  (  A  -H  .  Z ) 

IMPGFR*4  N'S5AC,NUft  tT£,IC,NNC0,Ne4,HKE4tNR0AS»LIMR,LlMl 
CCI»«r,.M  /PCfUM/  \CQL»NCnLl  .KA.NE 
l.RAE.-VABC  ..V i\6C 

ct»?rM  /Hr:*/  pg. c. cp  *pt  ,tt  .  i*c  .wott,  phct .phost  a* 

ILIALET.LCLIET.FsII ,3*U,F?!2,F1  11. X 
CCPHCN  /PCCUNT /  f*«<a.i.MftC>«i.KK 


FIND  HPEl  .kPL.ANO  TkEL  AT  LCC  NC'JES  3,4,5  (ftCTOft  J  . 

m*  FC11  *  PCli 

*  PCU  *  ■>€  II 2 

114  ■  PCTl  ♦  FC!i2 

115  *  FCI1  *  PC  II 4 


Kill 

PC  115  _  _ 

PC  116  *  PCIl  *  PCP.5 
PC  117  «  PCU  p  PC  1 16 
PCIin  «  FCU  *  ftCll? 

pc i is  »  pc 1 1  *  prut 

EFTA1  »  CATAMkC  *  PCIl/  VM1J  *  57.25573 
8EU  •  REl.U  /  57.25578 
kl  »  VM1  /  OCCSIPSTl) 

BCCN3  «  «..ni  *  CP  *  GC  *  3T*J 

TP  1  ■  T1  ♦  *<l*H  /  U>CC\’2  «  144.007) 

RViCHR  *  CSo6T(tvH*vn»(l.GC  ♦  [)HN1BETI)*0TAH135T1J  ))  / 
l  lG*CC*PC*?<U*l44.00n 

P KAPPA  «  25.6568  ♦  C.06°lI6i  *  PCI12  -  7.3P66110-10  *  7CI13  ♦ 

1  4.Cj'M5C-ll  *  P  C 1 1 5  -  0.12121*  *  OSINCPCIl)  ► 

2  2.52035C-4  *  CTAMPCIi) 

TCVC  «  C. 124  =  61  -  3. 5-52fcC-3  *  PC  II  -  e. 560160-5  *  PC  112 

1  ♦  5.351542-12  *  PCI  17  -7.303*10-7  *  3C3S1PCI1)  - 

2  S.25533C-5  *  CSIMPCIl) 

SIC  *  7.C4C73  ♦  1.2  2*5 10-3  *RC 112  *  1.466660-8  *  PCT15 

1  -  1.38S65C-3  *  CCJ3(.CI1 )  -  7.424«4C-4  *  OSIMPCIII 

2  ♦  2.PG«621£-a  *  CTAMPCtll  -  2.12*71  *  ;>LC'.(cCIl> 

PM  •  256.442  ♦  2.7U610-4  ♦  5 C 1 1 4  *  2.27P70-H  *  ftCU*  - 

1  C.5°8?C7  *  CCCSlFCIl)  -  0.367410  *  CSIM(PCIl)  ♦ 

2  0.C2776 12  *  CT/MKCli)  -  56. 700s  *  CLCG1PCI1I 


0.02776  12 


TCVC2  «  TCVC  *  TrvC 
7CK?  *  7 CVC  *  T C  VC 2 


■MftCIl)  -  56.  7006  »  CLCGIPCIII 


PE1A12  »  EeTll  *  KETS1 
BET A13  «  EETAl  t  rr. T.U2 
3E7A14  «  35TA1  *  PETA13 
efTA15  -  6E7A1  •  P 2 T A 1 4 
8E7A16  «  A.fTAl  *  65TAL5 
5102  «  SIG  *  * IvO 
|IC3  -  5  10  *  SIG2 


|  IC3  »  5  10  *  SIG2 

R0A5B  .  (  E  y  4  x  1  -  sell)  /  ( RM  AX  1  -  PM  INI) 

RPASS2  *  RPA5S  *  PPASS 
PtFCC  «  6STM  -  PK4PPA 
PKISH  •  C.700C 

PK1T  •  n.O*TCVC  -  75.  C6*TCVC2  ♦  15*.  0*T<*VC3 
P  I TFN  »  *IC  *  (0  .0?  *  EFT A1  -  2. 23  70-1 2 * be  T A 16  I 

SLCPE'-I  ■  -C.  G24«  1  2.  5-  1 10 1  -  0.  C0.72/4M  1.  4  -  SI  *. )  *CSCPT  ( DABS  ( l  .8 
L-S  1G  >Mh  67*1  -2  .1*  =!,-»=»(  26.  43-1.0/  (  M  0*  SI  •» )  )*P.2  TA  1 3 
PI20  •  “  *“  - 


IGlMMTil- 


)  17  I  V •  <•'  “  I  4  •  •  J  i  'H  V- 

1  26.  43-1.0/ I  f. I  G*SIG)  l*P.STAI3 


20  ■  «PIGH  •  KKIT  *  SI  T"N  ♦  SLOPED  *  PM 
PCI  «  2.  7054  -  1.  1  175*P'»4SS  ♦  0.43  75*RPASS2 
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PUS*  TLPBQ 


FCRTP  AN  A1  NAVAL  POSTGRADUATE  SCHOOL 


SXPP2  ■  ((  1.  0823  -  C.344*RPASS  ♦  l.  563*RPASS2)  /R>*ACHP)**EXPC1 
RICIFF  »  -2.8  ♦  2.55*RPASS  ♦  (5.275  ♦  7.5*RPASS  -  2.5  *  RP4SS2) 

1  •  RMAC»-F**7XPC? 

B  IREF  •  F 1 20  ♦  PICIFP 
PXCELS  •  C.7JCC 

RKCEl T  ■  4.6o7*7rvC  ♦  24.45*TCVC2 

-  ‘  -  -  -  - ! 1  *BFTA1  ♦ 

TA12  ♦ 

-6*  3STA1 3 

Q5TA12  ♦  3.1080-7  * 


lA??NAi33.35  -  C.Ci: 
BCCN  »  C  .C07 3  -  C.C 


toe 


lie 

m 


esc 


12 4  *  BSTAl  -  C. J000864  *  9ETA12 

_  .  . .00073K  *  BET  A 1  ♦  1.36.0-5  *  HFTA12 

CCELOl  •  C5X<M-AO  ♦  ( EC CN/ST 32 l*( OSIN (3. 1415S3*S IG  / 

2  (1.2*57.2 55 78  ) )  1**2 

e  *  0.566  -  O.COiCS  *  BETA!  ♦  6.145D-5  *  3ETA12  -  1.47R9D-6  * 

1  BETA  1 3 

CE120  *  FKCEcS  *  ?<C6LT  *  QELTEN  ♦  (  SLCP£M/{  SIG**3 ) )  *  PHI  ♦ 

1  BIDIFF  *  C'OSlCI 

ACCN2  *  -1.75  ♦  2.54SPASS  ♦  RPASS**6.53 

BCCH2  »  C.25  -  5.5e*?PA$S  ♦  31.84  *  PPASSZ  -  57. 2*RPAS$*RPASS2 
1  ♦  35.15  *  R  F  A  5£2  *  PPASS2 
CCCN  *  5.43  ♦  55.6  *  («»A?$  -  C. 5351**2 
CftOIF  «  ACJ.\2  ♦  ECC'12  *  R*ACHR**CCON 
CElRFF  •  CzLZC  ♦  CCLClF 
CEV  *  CEl?FF  ♦  (PINC2  -  R IREF 1 *CD2L0  I 
EETA2  •  CETA1  -  «M  -  RINCP.  ♦  CSV 
EPS  *  1 «  £C-b 
IT  ■  l 

BETA1  «  EeTAl  /  57.25573 
BETA?  »  fF  TA  2  /  57.25573 
REAP  *  ( PC II  *  PC  12  1/2.OC0 
GP1  •  G  -  l.CO 
SlMI  -  !.CC  /  GM1 
RFCZ  *  PFC1*0.7« 

Vf*2  -  tC«CRT(CFSIF2*CPS!P?*0FS  122*n»SI22  1)  *  144. ODO  / 

1  (RFC2*P2*RCI2/1^.00) 

ALF2  *  C/TAN(UG**CT2  -  V.'*2*CT  AN(  ATT  A?  ))/V*2) 

OFAC  *  1  -  (  V.'-*?*t:CiJS(8ETAm/(  V^l*0CCS(3'T4f  11  ♦(  (Vei*C-AM(BETAl  1* 
1  RCI1  -  VP.?*OT AN ( 3C TA 21  *KC  1 2) *CCO S( B  STAl 1)/(2.DO*SIG*VPL*R0AP) 
C*/C?  *  1FAC*CFAC 
CFAC3  =  CFAC2  *  CFAC 
CFAC5  *  CFiC2  *  CFAC3 

TCPEG1  «  (0.0C215C59  ♦  0.03O4227«CFAC  -  0 .33 9447* OF  AC?  * 

1  C.55545C*CF  AC3  -  0. C02745*0FiC5 I  *  (2.000*S  IG/CCC*  l°CT42  I  ) 

TCPSG?  «  (C. 0C'12C«8  ♦  0.0  3152  10*oc AC  -  C. 1054 7**0* AC2  ♦ 
l  0.22327 (*CF iC3  -  0 . 04 33 3?5*CF AC5 1  *  ( 2.000*S I G/OC^S  (EiTA? 1 1 
TC  IFF  *  (TCM'Gl  -  TC**G3) 

IF  (PPASS.GE. 0.30 1  GCTC  100 

if(»pa:s.lg.o.io>  110 

TCPcG  *  TCP5G3  «  (TCP cGl  -  TC*EG3 1  *  ( (0. 3-RPASS1 /O. 201**2 

GCTC  120 

TCPEG  *  7CivEGl 

GCTO  120 

TCPEG  ■  1C8SG3 

III  «  t5]  .  „g**g  *  (PCI2*OCI2  -  «CIl*RC!ll  /  ( SCCN3  *  144.0001 
FFi  *  PT1  *  (TFl/TTl  )»*( G* GMl I  1 
PR  1  «  PT1  *  ( TFi/TTl 1**(GWGH! I  1 
PE2  *  PEI  -  TCPSGMP'U  -  PI) 

V>2  *  V’*2  /  'JCl  i  (  EET  AI 1 
72  *  T=1  -  W?*»?  /  ( r:CCN2  *  W4.0D01 
P2  *  PS 2  *  (  T2  /  T6  1I"*(G*GMU  I 
PHC2  *  (F2*l 4n.CC )  /  (PC  *  T2I 

VK2N  ■  (CSC?T(Cl,:ir2*)PTI-.2*CPSU2*OPSIZ2l  1  *  144.000  / 
l  (FF:2*C-2*pC  12/12.00) 

CTEST  -  CAPS  (  V  82  -  V82M 

IT  «  IT  ♦  1 

IF(CTSST.LT.EPS)  GDTC  700 
VP 2  *  VP 28 

1FUT.LT. ICO)  G“TC  6 CL' 
fcf  ITF(6 » <50 

FCFMATU  CCNVCPGcNCE  NCT  KEACHED  IM  20  ITERATIONS’/) 
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FIIE*  TUPBO 


FCRTRAN  ftl  NAVAL  PCSTGPAOLATE  SCHOOL 


7CC 


3 


E 


c 

c 

c 

c 


c 

c 


44 

♦  4 
44 
44 
4  4 

♦  4 


CONTINUE 

PJMCH2  ■  VV2N»V«2N*(l.COC  ♦  (DTANCAL  P2)  1**2  >/{G*KG*GC*T2*  144. QCC) 
CL  ANT  «  l.COC  ♦  IG:U/2.00)*RPACH2 
PT2  •  02  *  OLiAN T 
TT2  *  T2  *  QUANT 

PFCT2  «  (PT2  *  144. CCI  /  (00  *  TT2I 
ENT  *  -PCACLTGIPT2/PT11  *  GC  *  144.0CC 
RETURN 
ENC 


SLERQUT  IN  E  STATUCT  1,VM1,R£TA1  ,RF.TA2  .PMACHOjP.^AXl  »RMFNl  • 
ICEV,KCI2  ,RH01,FHC2»T!,TT1,P1  ,PT1,  Al  0  1 ,  i-FCT  1 ,  PHOT  2  ,  *“>  ,  ~'-jT,OPSI  R  2  , 
2DF«IZ2,CF AC, ALF2,P2,PT2, T2,TT2 .TO^CO  ,V42  ,RPASC  ,N?.CQ  ,NE4,NNE4, 
3NFC’.vS) 

444  4  *444  44  •♦444  444  44  4  44  44  4444  k444  4  44  44  4  4  4  44  4  44444  4 4  4  4  4  4  44  4444 4  44444 
4  44  4  4444  44  444444444  44  4  44  44  44  4  444  4  44*44  4  4  444  444  44  44  444 4  44444 44 44 44 4 

44 

44 

444444 44 4444 44 4444444 44 4 44 44 44 44 444 44 4 44 44 4 4444*444444444 44 44 44 444 
4  444  4444  44  44444  4  44  44444444  44 444 4  444 44 4 4444 444444 44 444 4444 444 444 44 4 

IMPLICIT  SFAL*6«A-H, P-Z) 

INTFGrP**  NO*  AC,'  »'  ITS,  ICtNNCH  ,NF4,  NNF4»  NP.OWS,  L  I  <R»LINI 
CCBVrN  /NCC’Jt-.T/  NCOL  .NCCLl  ,NN,NE 

.  ■>  /■  k  k  T  /• 


l,NN?,‘V».i1C,N'l*3C 

cc«"»r*j  /fc rv  fc,  c,  c3,?t,tt,kc,,woct»  phct,rhosta, 
1L  INLET, LCLL=  T,F2I I,RTU,F2I2*Pl Il,GC 
CCFPON  /NCCUUT/  vkf*J» ,'*AQWl ,KK 


PC  112  » 
RCI13  - 
RCU*  « 
PC  1 15  - 
RCIlfi  ■ 
PC  117  * 
PCI1P  ■ 
PC  I  Ic  * 

Vk  1  «  VP1 

eccN’  - 

PPACMP.  * 

l  (G*nc*° 

OKAPPN  * 

1  -  ,1T4C 
TCVC  »  0 

17.*9<;4?- 

2  CTAN( PC 
SIC  »  4, 

15.  *26631) 
PH  «  16 
l  1.52365 
TCVC2  * 
TCVC3  « 
BETA1  * 
6ETA12  « 
BSTA13  « 
HETA14  » 
fi  F  T  A 1 5  « 
UETAIA  » 
SIC2  •  S 
SIC3  «  S 
RPASS  « 
RPASS2  » 
RINCt)  « 
OX!<M  ■ 
PK if  -  l 
RITEN  « 
SLCPSN  » 


FI  NO  HF  EL  » IkP.L, ANO  TWEL  AT  I.CC  NOOES  3 ,4 , 5  ( PCTQR  }  . 
FCI1 

HI 
SJH 

PC  11 
PC  || 


PCI] 


sen 


4  QTAN  IH5T A1 ) *OTAN ( flE^A!  1 1 )  / 

BC 1 17 


>  *  PCI!  4  1.635140-9 
.  43145  *  9  SI  M  «CIU 


l  .0.70960-5 

osiNnr.m 


RCI12  - 
3.G4003C-7 


R  C I _ 

Bill 

RCIIA 
PC  II 7 
RCI1E 

/  OCCSIFETA1) 

2.CDC  *  LP  *  GC  *  8TU 
CC  )ffll  VH*V*IM1.DC 
C*T1*144.C3  )  1 
64.6522  -  1.953*9 

36  *  ccrsir.n i)  4 
.Ciar’.C«9  ♦  2.311570-3  *  RC!l 
-5  *  DCOS(RCU)  ♦  4. €3  2130-5 

m 

7757 7  -  C. 350757  *  RCI  1  4  0.654720-7  *  PCI12  - 
-I’-'f'CIl*  -  I.3!1640-3*0SPI(  «flll  -  1. 72  765  C-6**3T  AN  (CCHI 
E.583  ♦  I.1117«n-10  <  PCI11  -  .925595  *  OCOSIRCm  4 
♦CSiraRCU)  4  .02i4Z7*CTAMRCU>  -  45.  7749*CL2GIRC  II ) 

TCVC  *  TfVC 
Trve  *  Trvc2 

FETA l  *  f  “ 

BETU  * 

B=TU  * 

PETA1  * 

BFTAI  * 

PETA1  * 

IC  *  SIG 
IC  *  SIC-2 
(PMAX1  -  PC  III 
RPASS  *  RPASS 
EeTAl  -  FKAPFA 
C. 7000 

: ,0*TCVC  -  79.06*TOVC2  ♦  199  .MT0VC3 
SIG  *  (O.C3*°ETAl  -  2.  3370-1  2*“STAIM 
-C.  024*12.  5-SIG  I  -  0.  C02264*(1.3  -  SIGI  •OSCRT  ( CASS  (1 .8 
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7.25578 

EFfAl 

BE7A12 

BETA13 

EETA14 

BE7A15 


/  (  PM  AX  1  -  PM  IM1 


*  •  V  V  * 


FI  IE:  TLFBO 


FCRTRAN  AI  NAVAL  POSTGRADUATE  SCHOOL 


l-SIGII*0fTAl-2.165O-S*(26.  43-1.3/ (S I G*'!G>)*9ETM3 
P  120  »  RUSH  *  PK  IT  *  P I T  >;  M  4  SLOPcN  *  Pt-l 
EXFC1  «  5.7354  -  1.  1375*R*\4SS  4  0.43  75*P.PASS2 
EXFC2  *  (11.JP23  -  C.344*»PASS  4  i. 5< 3*P PA SS2) /PMACHB )**FXP(U 
P  1C  IFF  »  -2.3  ♦  ?.55*PPASS  ♦  {5. 275  ♦  7.5*RPASS  -  2.5  *  PPASS2I 
l  *  RM4CPF**EXPC2 
PIPEF  >  f 120  *  PICIPF 
PKCEL S  »  C.7CGC 

R«C§LT  *  4 .66  74TfVC  ♦  24.45*TfVC2 

CflTFN  *  (-0.0C1-3  ♦  3.0257*$IG  4  0.  00014  4*$  13  2  J*rtETAi  «• 

1  U.5n-A  -  •».  553-4  *  SIG  -  3.  1025-4  *  S  I G2 ) *9ET AI2  ♦ 

2  I-2.07C  ♦  7.042  *  SIG  ♦  3.621  *  SIG  2 1  ^  1.  CO-^PFTAII 

SLCFcM  «  0.25  ♦  7.060-4  *  BETA  1  -  1.2360-5  *  BET A12  ♦  3.109D-7  * 

1  e!T113 

ACCN  «  3.35  -  C. 3124  *  BET  A 1  -  O.COOC«€4  *  BE  TA12 
ECfN  •  C  .0070  -  C.CC370B  *  8ET A 1  ¥  1.360-5  *  rtFTAl* 

CCELOI  *  o:xo<-ACCN*SIGI  ¥  ( SCCN/SIG2)  *( 0SINJ3 • 1415 E3*S 10  / 

2  ( l •2*57.2*?5 79  1)  1**2 

B  «  C. 566  -  O.C03C5  *  BE TA l  4  6.1950-5  *  BET 412  -  1.47380-6  * 

1  EETA13 

CFL20  «  EXCELS  *  6KDELT  *  OELTEN  ♦  C SLJPEH/ I SIG**B ))  *  PHI  ♦ 

1  BICIFF  4  GOELCI 

ACCN‘2  *  -1.75  «  2.5*PPASS  ♦  PPASS**6.«E 

PCCN2  ■  C.29  -  5.55*PSAE5  ♦  31.34  *  P PASS 2  -  57. 2*RPAS$*FP4SS 2 
1  ♦  35. 15  *  9P4 <<2  *  CLASS’ 

CCCN  »  *.43  ♦  55.6  *  (RP4SS  -  0.535)4*2 

CEIOIF  «  AfOf.2  ♦  eCCN?  *  P‘4ACHF**CC0N 

CEIPEF  *  CEL 20  ♦  CELCIF 

CEV  «  OElFPP  ♦  CFINCO  -  RIREf  MCOGLD  I 

B57A2  ■  ETTA  1  -  fH  -  PINCC  ♦  CEV 

PEAR  *  (PC  II  ♦  RC  12  )  /2.000 

FFS  «  l.CC-6 

enSi1.  E5TA 1  /  57.25578 
BETA 2  *  EETA2  /  57.29573 
GVl  *  G  -  l.OC 
OH  *  l.CC  /  GMl 
PFC2  »  PFC1 
7T5  «  T7i 

VI  »  OSCFT  (Vw  l  4Vv  1*  ( 1.000  ♦  CTAN(  3PTAll*0TAN(GETAim 
W2  «  (C'CfiT(Ct<;iii->*CP$:i<2¥CPS  IZ2WSU2  >)  *  144.000  / 

1  (P6ri*i*24FCI2/12.0C) 

V2  «  OSCPT  (V',24V>2*<  :  .010  ♦  RTAN(  S1PT  i?)*DTAN(8ET42)  ») 

CFAC  *  1  -  /’/LI  ♦  < VHi*CTAN(B57Al )*®C 11 
1  -  VM2*CTA";  ( 3  <  )  *  ->C  I  2  )  /  (  2 »D C*S  IG*  VI*R B AR) 

TCPPG  »  (C.00312C,J3  ♦  0.031  »21C*CF‘C  -  0  •  10*947 6*0F  ACZ  ♦ 

1  C.2233  7  F*0C  <.C3  -  0.  C4  33  92  5*3F  ,'C5  )  *  (2.  )00*SI  G/CCCS  (EET.42  I  ) 

PTZ  »  °T  ]  -  TCVEG*(PTl  -  PI) 

T2  »  TT1  -  j  VI  *  <VV’*VM2*(l.CC  ¥  OT*N(  ALP2  ) )  **2  I )  /  (2.00  * 
l  G  *  RG  4  SC  a  144, CCO ) 

P<  *  PT2  *  (T2  /  TT1)**(G*GM1I) 

PhC2  «  ( f  2*1 44 .CO  )  /  (PG  *  T?) 

VVZK  *  (CSGa  T( C35  IK 2*UPSIN2*0P  SIZ2*0PSI22) )  *  144.000  / 

1  (RFC2*524SC  12/12  .00) 

CTEST  »  CABSIVV?  -  W2N) 

IT  ■  IT  4  l 

IFIOTEST.LT.FFS)  GCTC  700 
WZ  «  V*Z\ 

ICUT.LT.100)  COTC  600 
WRIT?(6,<5C» 

FCFVAT (  •  CONVERGENCE  NCT  R£4CWED  IN  2C  ITERATIONS*/) 

RVACH2  ■  V*7N*w2N*(1.0Ca*-(CTAN(9ET42)  )**2  )/ ( G*R  G*GC*T2*1 44 .OOC ) 
CL/NT  «  1.C0C  ♦  (CMl/3.O0l*PVACH2 


PHTT2  •  (PT2  *  1-4. PC)  /  (®G  *  Tr  21 
FM  •  -RC*CLCC(FT2/PT1)  *  5C  *  144.0 CO 


RETURN 

ENC 


SUFFCUTIPE  RCAT3  (2A,fAfv»,P?LX,RK.LI‘1I,LlMRtLI‘94) 

♦♦♦4 ¥+*¥+¥¥+*¥¥+¥¥+¥++++¥¥ ¥* ¥¥¥¥¥¥ ¥¥¥¥•¥¥¥¥+¥¥¥¥¥¥¥¥+*¥¥¥+¥¥¥¥¥*+¥¥* 


v- -  - 
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44444444  44  4  *****  444444444444  444444  4444444444444444444444  444444444444 
44  44 

44  4  4 

44  444  4  44444  4  4  44444  444  44  444  44  44  4  4  44  444  444  4444  4444  44  4  4  4  44  4  444444  4  4  4  44  4 
44444444444444444444444444444444444444444444444444444444444444444444 

IMPLICIT  REAL*f(A-H,P-Z1 

INTEC2R*4  NRFAC.NaR  t  T£.  IC.NMCD  ,NF4,  MNS4, ‘(ROWS,  L  I  NR  ,  L IM1 
CCPHHN  /fCCM/  P'i,C-,C;».FT1TTtwr,,n,JCT,  PHCT,KHCST  A, 

U>  INLET,  UCLLET, P«  n.-?TU,F  2 1  2.  FI  1 1»GC 
CCPPCN  /IIC/  NFEAC.N»RITS 
CIPENSICN  ZA  (S > ,£A{ SI ,W( 91 


NREAO  « 
M.PITE 
PELX  ■ 


«  6 

C.24C0C0 


INITIALIZE  STREAM  FUNCTION  I  TER  ATI CN  CCUNTER 
CP  RE«l*a  AN C  INTEGE**2  STORAGE 


««cco 

2CCC 

5CC 

lFRcc-FCINT  GALSSIAN  AESCISSAS 


221  »  C.1T* 

222  •  C.CCC 
2A(1)  «  ZZ 1 
2 A  (2 )  »  ZZ1 
ZA (21  »  221 
2A  (4 1  »  112 


174506669241483 

ICCOCCCCCCOOCOO 


mi! 

2A  <7 ) 
ZA  (81 
Z  A  (  9 1 
EA  (1) 
EA(2) 
E  A  (  3 1 

(ill 

E  A  ( 6  I 
EA  (7J 
EA  ( 6 1 
E  A  (9  I 


WEIGMIMC  VALLE  2  *C»  3  PT.  GAUSSIAN  CUADRATURS 

«  0,5555 55555:55566 
*  0.teS8£5S5<S88°19 

■  h  V  !  *W  W  1 

»  t,  v  2  *w  ►  1 
* 

a  V«V2*-II*1 

*  WV2*Wi»2 
a  VV2«-^Wl 

*  *  i  I  to  1 

a  V4^ai4*<l 

I  a  >tl*4fcl 


constants 


CCF  UMTS  CONVERSIONS 


RETURN 

ENC 


■  77f ,20C 

«  12.0*>0 

■  1  *  4, ODC 
«  Fill  *  I 
32. 1740C 


201 


flies  7LRB  j 


FCRTRAN  A  1  NAVAL  PCI  STGRAD  LATE  SCHOOL 


SLRRCUT  INC  ER»  l(NEXCR) 

NEXCR  *  -NEXCP 
WPITcl0,KC>  NcXCP 

ICC  FCP»ATM  EXCEeCEC  MAXIMUM  ALLOWABLE  SpACE  FOR  REAL*?  VARIABLES  BY 

i*,no//i 

STCP 

ENC 


IOC 


ICC 


SUBROUTINE  cRR2(NEXCI) 

NEXCI  «  »K EX  C I 
WP  ITT (6 *100)  NEXCI 

FC PMAT ( •  cXCEECFC  MAXIMUM  ALLOWABLE  $#ACE  FOR  !NT*2  VARIABLES  8Y  < 

It  110//) 

STCP 

ENC 


SLeRCUTINE  ERP’INEXCAI 
NEXC4  *  -NEXC4 
WRIT-(fc.lCC)  NEXCA 

FCF*AT(i  SXCEECEC  MAXIMUM  ALLOWABLE  SPACE  FDR  RE AL*2  VARIABLES  0Y 
l'.IlO//) 

«1CP 

§NC 

SLEROUT  INE  MPLCTIRCtR'-AXtf'MIM,  VZ .CVe L »CRC t CBS , OAL P , NRCTPH , ALP  t 
IBP  ,n=Vl  »  FRAT  ,ETA,NNCC,CRAT,N£A.#MMC4t  NRCWS  ) 


44 
44 
44 
44 
44 
44 
4+ 
44 
44 
-4  + 
4  + 
44 
44 
44 
44 
44 
44 
44 


THIS  SUBRCUT  IUc  CREATES  A  TcKTRCMX  618  »ICT  CF 
THE  FCL  LCW  I A  G  PARAMETERS* 

AXIAL  VELOCITY  \T  THE  RCTOP 
RELATIVE  FL‘!«  ANGLES  AT  THE 
AXIAL  VEICCITY  at  Tr?  ^OR 
RELATIVE  Ft  ;W  ANGLES  at  -mc 
ABSCLUTC  FL'-.t  A.;GL*S  AT  THE 
AXIAL  VELCLITY  at  Th;  S"\TCR 


INLET 

ROTOR  INLET 

cutlet 

ROTCR  INLET 
?->TQR  INLET 
INLET 


A3  SC  LUTE  FLOW  ANGLES  AT  TH  E  ST A TO#  INLET 
AXIAL  VELOCITY  AT  th?  3TATn*  0(.TLEt 
ABSCLLTc  PLO*.  ANGLES  AT  THE  ST  OUTLET 
AO  I AB  A T  IC  EFFICIEMCY  AT  THE  POTC#  TNLST 
RELATIVE  CSV  I  AT  I  ON  ANGLE  \T  THE  CTTOR  OUTLET 
ABSCLITE  DEVIATION’  ANGLO  AT  rM g  ST'.T.->R  CUTlcT 
STATIC  PSFSGURE  RATIO  =  r?  THO  pctor 
STATIC  PRESSURE  RATIC  FOR  TPE  ST  AT  JR 


44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
4  ♦ 
44 
44 
44 

•  4 


IMPLICIT  9FAL*F(^-H,F-Z) » 
INTEGER**  NR =AC 
LCCICAL*] 
lCCir.4L*l 
LOGICAL*  1  . .  •  . 
ccmmcn  /nccj*'.  . 

I  tNNe.NNOC  tNNNilC 
CCM“ff;  /PCLJNT/  VROW  .MRO’wl  ,KK 
DIMFNSICN  CRCU)  tCVEUl)  ,OXYL 

rfuet^fn  ~r  i  i  \  :  t  i  \  jo  n  «  * 


TL  10< 35) 


LIP-'  /PI.UJIV  I  /  PI.  Krni|»l(PH 

BIMFNSICN  CRCU)  fCVEUl)  .OXYLI  4I.0BE  ( 1 ) ,  C  ALP  <1  ) ,  DR  A  T(  \  ) 
CIMENSTCN  SC  U  )  tVtl  i)  ,^EU)  ,ALPU  1,GE'<1(1  )  ,?RAT  ( 1) ,  STAI 


*PLOCO* 

MPLOSC' 


FILE*  TtIFeO 


FORTRAN  A 1  NAVAL  POSTGRADUATE  SCHOOL 


4* 444  4  4 4** 44 4**0 ********** ********  ******  **************************** 
**  ** 

**  FLCT  THE  PCTQP  INLET  VELOCITY  DISTRIBUTION  »♦ 

4*  ** 

4*44*4*4**  4 4  4*4*4* 4**4*  ***********  ******  4 44*4 ******* 4 4* ********** *** 

DATA  T I  T  l  !  / '  AX  I  4|.  VELOCITY  PPCHLE  A  T  f<nTPR  IMLET*/ 

TITL2/*  AXIAL  VPLDCITY  PROFILE  AT  ROTOR  OUTLET*/ 

TUt3/'  AXIAL  VFLOCITY  P®0  FILS  AT  STATER  I  ML  ST  •  / 

TITl*/' AXIAL  VcLCCITV  PPCFlLe  AT  $TATC<  niJT  LET  •  / 

TITL5/* RFLAT rVE  FLOW  ANCLES  iT  ROTOR  [Nl3T*/ 

-  ~  ‘  ANGLES 

angles 

ANGLES 
ANCLES 


ICC 


CATA 

DATA 

CATA 

DATA 

CATA 

CATA 

CATA 

CATA 

CATA 

CATA 

CATA 

CATA 

DATA 


TI TL6/*  RELATIVE 
T  I  7 1  7/*  AHSr’aJT5 
T I  U3/'  AHSCllTS 
TI T  L  3  /  •  AQ  SCI L7E 
TITllU/'ACTAcATIC 
TITlll/'QF  VIATIC'; 
Trill/  •  Q  cV  I  A”  I  CN 


FLO* 
F  ION 

flow 

flow 


AT 

AT 

AT 

AT 


FETOR  OUTL  FT  *  / 
ROTOR  OUTLET*/ 
STATCP.  INLEt*/ 
StATi:P  OUTLET'/ 
c  FF  I C  I c  NCY  AT  ROTOR  INLET*/ 
ANGLE  R CTO 3  OLTLET*/ 

ANGLE  STATor,  CL7LiT*/ 


PRESSURE  PATIO,  RCTCR*/ 
PRESSURE  RATIC,  S  T  ATuP  * / 


WISH 

./) 


TO  ENTER  THE  PLOT  SEQUENCE? 


SCO 


lie 


TITllV'TCTM 
TJTllV'TCTAl 
V»R  ITe  (  4  »  ICC  I 
FC  PMAT I  5  >  » •  >QC  YCU 
1  1  *  YFS;  2  =  NO.  * 

PEAC(15,4  |  MANS 
!F( NANS . EC.2  J  GCTC 
J  «  NRGTC6 
CC  30  I  *  l.MRCWl 
ORClIl  «  PC(J> 

0V3L (  I)  *  V7< J I 
CBE  (  II  =•  SE  <  J  ) 

OALPI  I)  *  ETi( j) 

CPAT(n  «  PR»T(J1 
J  *  J  ♦  i 
CONTINUE 
NF  14  *  P FC* I 
CXYL  ( I  I  *  -5C.CC0 
C>YLf?)  »  °M IN 
OXYLCT)  *  7UC.CCC 
CXYL  14  I  *  R.MAX 
CALL  D31MT 
CALL  GSEFSS 

-  PLC  T  (  •  **4GNNN  3NV.L  •  ,N»14,CV  Sit  CSC  ,CXYL,  37,  T  ITL1  I 

PLOT!  *  lyONLN  jOWL*  ,riRX4,CVEL,  IRC  tOXYl »3  T  »T  IT  j.  1 1 
OS  T  F  3  v 
WP ITE( 6 , 1 1CI 
FC6MAT(5>,'  >CC 


CALL 

CALL 

CALL 


YCJ  WISH  TC  CONTINUE  PLOT  SEQUENCE?  *,/,* 


,/) 


'C  ECU 


•  YFS;  2  =  NC. 
j  A0( 15*4  I  MANS 
I F  (NANS  •  EL  ,2  I  GO- 
CALL  D  s  r  F  1  T 

3  3  3  P  S  E 

**107  ?*“"GNN'  3?!*l '  ,NR 14,Coc.0AC .CXYL, 35,T!  TL5  » 
R  L  C  T  ( •  «  y  G  N  M1  20  w  l  •  ,NR14,ChF  ,0^0  ,  CXYL  *  35,  T  I  TI.  5  I 
0  S  T  E  3 .4 


CAI  L 
CALL 
CALL 
CALL 


WP  ITE(  4,110 


F  E  AC  ( 
I  F  1  N  A 


15  ,4  )  mans 


CUTC  SCO 


CALL 

CALL 

CALL 

CALL 


IFINAf’S.RC.i) 

CALL  OS  IN  IT 

-  GSCFSS 

Pl.FTI  *MW(iNNN  2NW  L  '  ,NRl4,C?AT,n5C  ,°XYL  ,  27  ,T  J  T  |  n  ) 
PLOT (• 4MGNN\iOWL' tNR14,C5 AT,  :3C  ,OXYl. 27, TI TL 131 
OSTePP 
WP  ITC  (  6  ,  ] !C J 
BEACH?,  <  )  IANS 
IF ( NANS .EC.2)  GGTC  500 
CALL  OSIN!’ 

-  G$FF«F 

PICT?  *4VGNNN?.V*l*  ,NP14  ,  CA  LP,  HC  ,  CXYL,  35,  T  IT110  > 
PLOT  (•MHUNMN  20*1.'  ifini4,CALP,:RC  .CXYL  r  35, T  IT  L  1C  ) 
DSTEF* 

16,110 


CALL 
CALL 
CALL 
CALL 
WP  ITS 


REAOI 15,4  t  MANS 
IF  (NANS, EC. 2)  COTC 


500 


FILE:  TLBBG 


FORTRAN  A 1  NAVAL  PCSTGRAOLATE  SCHOOL 


AC 


A1 


•0 


C  ■  J  ♦  NFCW  ♦  1 
CC  40  I  »  i.MRCWl 

op.cn )  *  scui 

OVcL (  I )  »  VZ(J) 

CBE I  l>  *  BE (J) 

CALPI  IJ  *  CEV 1 ( J I 
*  *  J  ♦  1 
CONTINUE 
CALL  OS  IN  IT 
CALL  GSEFSF 

CALL  PLCTC^GNNNJNWL' 
CALL  PLCT('!-HGNNN30WL* 
CALL  OS  TERM 
NPITE(4filC> 

REAC(15 ,* I  NANS 
IF(NANS.EC.2I  GOTC  5C0 
CALL  OS  I N  IT 
CALL  GSEFSt 

CALL  PLOT ( 'MVGNNN3NWL* 
CALL  PL  C T  ( '  '*  MGNN  N 30 WL  • 
CALL  D3TERI* 

WRITS(6,  I ICI 
PEAC<15,«  )  NANS 
IFINANS.EC.2 )  GOTC  5C0 
CALL  DSIMT 
CALL  GSEPS? 

CALL  PLCH  ,VPGNNN'»  .V.L' 
CALL  PLCK  •  5*«GNNN2o»«L* 
CALL  DST  E  Fv 
WRITE  14*110 
R£AD( 15, « I  NANS 
IFINANS.EC.2I  GCTC  500 
J  ■  J  -  NPCRl 
CC  41  I  a  1,««CW! 

CPC (  I  )  *  °C (J) 
CBEIII  *  AIMJI 

CCNTTNUF  *  1 

CALL  iJSINIT 

CALL  GSEFSE 

CALL  PLCT(*Ml»GNfN2NWL* 

CALL  PLC  i  <'M*GNNN30KL» 

CALL  OSTE°" 

WP  ITE ( 6  , 1  tC) 

PEA0(15,<I  'IANS 
IF  (NANS  *  EC ,2 )  GCTC  500 
J  •  J  *■  PRCW  +  l 
CC  50  I  *  l,  •''*0*1 
OFC  (  T  )  a  °C  ( J  I 
CVEL (  II  »  «Z< J» 

CP  AT ( U  »  PRAT ( J  I 
C9E (  I  )  «  ALFCJ) 

J  a  J  ♦  l 

CONTINUE 
CALL  OSIMT 
CALL  GSEFSE 

CALL  PLOT  ('•1VGNNN2NWL' 
CALL  PICT  ( '  y **G N N *« 30 w L ' 
CALL  OSTGRi- 
Vi  F  IT*  C6  , 110) 

REAQ1 15, < )  NANS 
I F  CNAHS  .  EC  .2  )  GOTC  5C0 
CALL  OSIP  IT 
CALL  GSEFSr- 

CAIL  n L C  T ( ' T MG N N N  ?N W  L  ' 
CALL  PLCT ( 'MPGNNN20WL* 
CALL  D  3  T  F  3M 
WP  ITS (  4 , 1 10 1 
RE  AC( 15  ,<  I  NANS 
IF (NANS, EC. 2  I  G07C  SCO 


,NR14,CV£L,0PC  ,CXYL ,38 ,T ITL2 I 
»NR  14,  (TV  £L  »  0*C  »0XYL»  ?4»T  I  TL2  I 


,NRl4,CPE,n!5C,CXYL,36,T!Tl  i  I 
,NR14,C6E,0RCfCXYLf34,TI  TLa) 


,N°14,C A  IP , CRC  ,CXYL , 28  *T ITL1I  ) 
,i\R14,CALP,CRC  ,CXYL»28»TITLll  I 


,NR14,CHF,  jRC»  CXYL,34,TITI.?» 
,NR14,C5E,  TRC,CXYL,35,TITL7» 


»NR l 4, CV EL ,OTC ,C X VL , 3« ,T I TL 3 > 
,NR14,CVFL,CRC  ,CXYL»  38»T ITL3 I 


,i'IR  14  ,CB  E  »nRC  »  C  X  YL  »  34,  TITi 
,.\R14,C3£»2R*»  CXYL,  36,TITl 


CALL  OS  IN  IT 
CALL  GSSPS5 


nonnA 


FILE:  TtFBC  FCRTRAN  A1  NAVAL  PH STGRADLATE  SCHOOL 


60 


50C 


CALL  PLCT('PNGNNN?r;v»L* 
CALL  PICTC'IPGNNN’GWL* 
CALL  0STER* 

PR  ITE (6*110 
READ( 15,  <  I  NANS 
If  (NANS. EC. 2 >  GCTC  5C0 
J  «  J  *■  PPCW  ♦  l 

cc  60  i  *  i.prcki 

ORC(  I  )  *  »C  (JI 
0V6L (I)  *  V Z I J ) 

OBE (  I  )  *  ALP< J  » 
CALP(  I)  *  CEV1  (J  ) 

J  *  J  ♦  1 

ccntinue 

CALL  OSIMT 
CALL  GSeFfE 

CALL  PICT  {•■1*GN.'?.2Nrfl' 
CALI  Pl^T(,^^P3^^^20i»L• 
CALL  DSTERM 
PR1TC( 6,1101 


,NR14,CR AT.CRC  ,CXYL,  2*1,7  ITl  14  J 
,NR14,rP  AT.C'RC  »CXYl*23»TtTL14) 


»NR 14, CV  EL  » C,0C  ,CXYL,39,TITL4J 
,NR14,CV 1L,CRC,CXYL,3R,T ITL4) 


REAOdS.*)  NANS 


GCTC  ECO 


CALL 

CALL 

CALL 

CALL 


IFCNAMS.EC.2J 
CALL  OS  IN  IT 
‘  CSEFSE 

PLC1I  •M,vGNM«2NtaL  • 
°LC  T  ( *M»*GNNN30i»L* 
_  DSTERP 
WPITEI 6, 11C) 

PE  AC (14, 4  )  MANS 
IF ( NANS  .  EC. 2  I  GCTC  SCO 
ALL  OSIMT 
GSPFSc 

PLC  1  (,vPGNNN3NwL' 
PLCT  (•'«MGNNN2CV,L' 
OSTSrM 
.  .  NUE 
RETURN 
ENC 


,.NR14,C2E,03C,CXYL.37,TITL9) 
,NR  1  4  ,CS  c  ,OSC  ,  CX  YL  •  37,  TI  TL  9  I 


,NPi4,C«LP,CP.C,CXYL,29,TITL12I 
,r(Rl4,CALP,CRC,CXYL,2  3.TI  TL12I 


StERHITINc  SLINEIRC,FS  I,VZ,VR,NC05,V‘'l,RCIl,RCT2,ALPl,:iTjl,3Mni , 
lRHC.AL"  ,tl  ,1  I  ,  IS'Al  ,.v,=MCTT,T':.Mp,TT2T,?RcSS,PT(r,  a.Pl.T!  Trlf  r»r1( 
2PFCT 1 ,  H  1  thSl  ,a:,Ct'S  »P2.0PS!Z2,h,H3,2  I,V21,Vr.t,2C,fNTR<TP,:NTl, 


3NNCC.NE4  ,N*"4,NMWS) 


1PFLICIT  ?5AL*f  ( P-Z) 

INTcCcR*4  NRE  AC.Nvr.  I  TE  ,1  C,  NNCD,NE4,NNE4,.NRCWS,L  IMR.L  IMI 
CCPPOJ  /NCL'If.  T  /  is  CC  L  ,  NCC  L 1 ,  N  N ,  N  c 
1  .NNF.NNPC.NNNcC 

CCNPU:'  /FCCM /  FG,G,C°.PT  ,TT,NG,H0r7,  FNCT,RHCSTA, 
1UIMEt,UCLLct,P<I  !,«T'J,f  21  2,Fi  I!  ,  JC 
CCPPCN  /NCC'jrT/  ^M’W,JIRT<«1  ,KX 

Cl  PENSION  fC  (  U  ,VR(  II  ,rl  (  31  ,  2F  (31  ,=HCdI  ,FMOTT  ( 1  I  , T CP0  ( 1 1  ,  ttot  (  1) 

CIPENSIfN  VZ(  1  l.vu  n,p»l_(  l),T*ELIl)  j?-.cSSI’l  ,nTCTt 

CIN^'SICN  <*S!  ( 1>  ,Alt’(I).  JCIU,MI ).  HS(  l»  ,Z1(  j)  ,om,2t  M.ZC  (1) 

01  PENS  I  CN  RCi(  El  ,ZC3  (HI ,  »JAC  (2  ,2»  ,3Z  (3>.OM3>  ,  OPS  I?  (3  ),OPSI£(>M 
C  I  PENS  l  CN  FNTPCPUI 

C I  NcNS  IC  N  INLSTd »,NTF(1 > ,NCCF <NE4, 1  ) 


BEGIN  H~H  M 10  NCOE  CF  FIRST  ELEMENT  ANC  TPEN  CYCLE 
THRCLGH  EACH  ELEMENT. 


FILE:  TLRBG  FCRTRAN  41  NAVAL  PCSTGRA01AT2  SCHOOL 

mi  «  ncoei  i  j,p» 
p  »  fjicnih 
IT  «  c 

R  »  II 

IFIISIAI.^C.I. ANC.NTci.eQ.il  GCTQ  700 
IFIISTAI.  EO.n  GCTH  20C 
ACI2  •  5C  IN  H  ) 

82  ■  E  CM  1 ) 

C  CHECK  TC  SEE  IF  P  IS  WITHIN  THE  PRESENT  ELEMENT 

13C  IFIP.Ce.PSI  <NCCS(X.5mGCTCl*) 

c  CHECK  NEXT  ELEMENT  «cLCw  THE  PRESENT  ELEMENT. 

K  «  K  ♦  l 
GCTC12C 

1 AC  IFIP.CT.PS! (NCCS ( K  .41 IIGCTC170 

EL  »  £1(4) 

ER  «  11(5) 

15C  E2  *  (*L  ♦  ERI/2.C0 

CALL  SHAPEIEP.-l.CT.SF) 

PA  «  1FC3 »*  FS I INGCEIK.?) )  4  SF (4 ) APS  I (MODE! K.4 ) ) 
l  4  SF ( 5  )*F  51 CNGC'I <,5>1 

C  CHECK  FCR  ST  SFAML  INF  CONVERGENCE 

EPS  «  OAMSifA  -  P) 

IFIEPS.LT.  l.C-C6)GCT01<;0 
IT  «  IT  ♦  1 
IF (  n.GT.»5)GCTni«0 
IFIPA.LT.P)GOTClftC 
EL  *  12 
GOTOISC 
16  C  EF  ■  12 

GOTCISC 

17C  IFC  p.C T.P SI  (NCCE(K.3mGCTC13S 

165  EL  *  E  1  (7  ) 

ER  *  E1I4J 
GOTOISC 

C  CHECK  NEXT  ELEMENT  ABOVE  PRESENT  ELEMENT 

IBS  K  *  K  -  1 

G0T01<C 

C  IF  CC4VERG5NCE  CRITERIA  SATISFIED. 

C  CALCLLME  WHIRL  ANO  static  enthalpy 


VM1  « 
ALP  l 


PHOT  1 


PT1  « 


>  NCD  £ ( K . ’  ) 

•  NCOc ( H  «  4  ) 

1  5  |  |(  C  | 

*'  SPI3)**  5C(NK1)  ♦  SF  (4)  *  RCINK4)  ♦ 

SFISI  *  RCINS5) 

'  Sr(2)  *  V/  ( V<  J)  ♦  SFIO  *  VZINK4)  4 

Sp  I  5  I  ♦  VZC'Si) 

»  SF{?)  *  V*  ( NK 3 )  ••  SFI4)  *  VRINK4)  4 
SF(  E  )  *  VM  '<!) 

»  CS'JHTIVZI  *  VZ1  4  v?l  *  V*1  ) 

X  SFU)  »  il"<NX3)  4  SF<4>  *  <ll»(NK4|  4 

SFIS)  *  ALPI  .X5) 

x  SF  13  1  4  RHUNX3)  4  SFU)  *  TFCCNK4>  *. 

SF(  5)  *  RHCIMIM 

L  «  Se<  3)*5HC7T('iK2  )  4  «F( 4 »* PHCTT INK M  4 
SF(  5)  *  PHCTTINKSI 

SF(3  )  *  TEMP(N<n  +  SF  <  41  *  TEMP  ( NR4 )  4 
$F(  5  I  *  T*MFINK5) 

»  ?H2»  *  TTCTINK3)  4  S  F  (4 )  *  TT0TINK4)  4 
SF<  =  »  *  TTniNKR) 

«  «F| 2  I  *  FT  CT  1  NK  3  )  4  3FC4)  *  PTOT  (NK4 I  4 
fF{  J)  *  FTCT|*>K5l 

SF 13  F  *  r«ESS<NK3)  4  S  F 1 4  )  *  PRESS (NK4)  4 
SF(  5)  *  F°s  5S  INK*  ) 

x  RF(?)  *  SNtHCP«*;K3)  4  Sr  ( 4 )  *  SNTkOP ( NK4 )  4 
SF(5)  ♦  £fiT'r)p(rjK5  » 

SF  (3 1  •  4  iF|4)  *  HINK4)  4 

SFI  5)  *  H (  N  ’<  5  ) 

«  SF( 3  )  *  HS(rK3)  ♦  S  F  1 4  )  w  H  S (NK4 )  4 


FILE:  TLFPO 


FCRTR AK  A 1  NAVAL  POSTGRAD  CATE  SCHOOL 


20C 


21C 

21! 


C 

230 

C 


2AC 

2!C 


26C 


27C 

2fcS 


Sa; 


c 

c 

c 

29C 


C 

3CC 


*  VZ1  ♦  VAl  *  VP l » 


SFI  51  •  FS(NK5> 

K  »  If 
GOTO  210 
RCIl  ■ 

VZl  *  VZ(Ml) 

VP1  •  V«(M1» 

VMl  »  CSOFTIWl 
ALP  l  «  AL  P I  N 1 1  ) 

RH01  «  PHCI FI!  I 
PHOT  1  »  RHCTTJM  i» 

Pi  »  f  FES  S  ( A  l !  I 
PT1  «  HOT  (Ml  I 
TT1  «  TTOTJMl) 

T1  •  7 EVP  (A  ID 
HI  ■  HMD 
HS1  -  FStNllI 

IFR'IKic.!  .CF.ISTAl.cQ.3l  GOTO  300 


'V,1 


CHECK  TC  SEE  IP  P  IS  WlTHtA  THE  PRESENT  ELEMENT 
IF(P.C6.PSI<NCCE(K,7I I  )GOTnz*J 

CHECK  A  EXT  SLcNeNT  P ELUW  T  FE  PRESENT  SL£MENT • 

K  «  K  ♦  l 


.PSI  *ACCEIK,8» IJG0T0270 
E  US  I 
f  1  (7  I 


PA 


tF(P, 

EL  * 

PR  « 

52  •  (EL  ♦  SPI/2.C0 
CALL  SFA»=(E2.1.CC,?FI 

SF(1  »*FS!  (f:C?s(K.l  n  ♦  SF(?l*®Sl  CNnOEl  K »  7 1 ) 
«  SP  C H  »*► <1 <\..1C3<K,  3)  I 

CHECK  FCP  STSEAMLIA.E  CONVERGENCE 
...  _  '  CA8S(  TA  -  PI 

IF(EPS.LT.1.0-CMGCTC2PC 
17  »  IT  ♦  1 
IF (  IT.CT.  1DGCTC2S0 
IFIPA,LT.PlCOTC?£C 


EPS 


G0T02 Ic 


tc 


IFIP.C7.PSI (Nf  CE ( K» 1) I IGCTC285 
EL  »  tl(i) 

EP  *  11(91 
G0T02SC 

CHECK  A*XT  ELEMENT  ABOVE  PRESENT  ELEMENT 
K  »  K  -  l 

G0T02«C 


PC  12 


B2 


IF  CCKVEPG5NC5  CRITEFIA  SATISFIED. 
CALCLLDF  XM’FL  ANC  STATT-  Fi-.THAL’Y 
2  *  SF(1  l*"C(ACO?(K,l  I  |  ♦  SP{? »*FC(MODE(K, 
♦  SF  <c  »*KCf  JOSCK.SI  ) 

»  S*(l  l*F(ACOe(K»l  1 1  ♦  SF(7|»-3CKCD6(X,7)  ) 

4  SF  (B)*B(NCCclK,Jl  I 


7  1 1 


M 

N2 

N3 

A.A 

N5 

K6 

Ai7 

N8 


GC  TC  A  EXT 
••CCS  ( X  »1 ) 
Arc= (X  ,21 
ACC£(K,3  I 
ACCS (K  ,A  1 


ELEMENT. 


PCS ( 1  I 
RC  >(  2  I 
ACM  3  I 
RCS ( A  I 
RCJ(  51 
PCSU  ) 


ACCJ<K,fc  I 
ACCS (K  ,7) 
ACCE(K  f» ) 
SC  (A D 
T.  <f)£l 
SCIA’l 
hC (A* J 
*C(N!> 
PC (N^  I 


FILE*  TLFBG 


FORTRAN  A 1  NAVAL  POSTGRADUATE  SCHOOL 


ACC 

i 

C 

c 


1 

3 


5CC 


60  C 

7CC 

C 


PCS (7) 
RCSI  6  > 

zcsm 

ZCS I  2  ) 
ZCSI  31 
ZCSM) 
ZCS ( 5  ) 

!c.si  6 ) 
CSC  7  ) 
CSI  8  ) 
0  5CC 


FCIN7I 

RC  IN5  ) 

ZCIMI 
ZC  (N2  ) 

ZC IN  3 » 

ZCIM*  ) 

ZC ( N5  I 
ZCIN6I 
ZC  IN7  * 

ZCINc) 

»  l.'NE 

INC  T  HF  JACOBIAN. 

call  JACC6CF1  m ,zim .a,E,?rs,zc s.pjac) 

DETJ  »  RJACll.lMRJACI  2)  -  RJAC(l,2M>PJACI2,l> 
FINE  INVERSE  OP  JACOeiAN. 

DLP1  «  R  JAC  11*11  /  ''ETJ 
R JAC (1  >  1 )  «  fiJ/!C<2,2>  7  CETJ 
RJACI1.2)  *  -PJAC(1,2)  /  CE T.l 
RJACI2,1I  «  -0JACI2.il  /  OETJ 
RJACI2  ,2  )  >  DU'*' ! 


FIND  CNI/OP  AKQ  CM  I/O  2 


DC 


1.NN5 

PJ«CU,ll*0lLI 
SJAC <2, 1 )*0<L  ) 


PJACIl,2l*Fm 
c JACI2.2 )*=(  L) 


403  l 
CZ(L) 

CPIL) 

CONTINUE 

CHECK  TC  SEE  IF  SOLUTION  IS  AT  INLET 

FIND  CIFSIl/OR  AMO  CMSD/OZ 
OPS  IK  I  1 1  -  CPI  l)*»SMNl>  ♦  (  2MPSIIN?) 

cRm*Ps:i\?i  ♦  - 

CP  I  5 1 *P  S 1 1 N5 I  ♦ 

CP  1 7 ) *P S  II N 7 )  ♦ 

opsizm  *  czm*ps:cNii  ♦ 

CZ(  2I*P$HN2I  ♦ 

CZI5MPSMNS)  ♦ 

CZ ( 7) *P$ 1 1  NT  I  ♦ 


^F (MTfl.cC.il  COTC  603 
IF! ISTA1.EC.’)  GC’O  600 
OPS  IP  2  «  SH1I  *  DPSIM  1) 
SF  (8  )  *  CPSIRM) 
opsiz;  «  sf iii  *  opsizm 
SF  (3  I  *  CPSIZI3) 


0RI4  >*PSHN4) 
D°(  6)*£>SI  |f'4> 
■>p(  «) APS II NS) 
CZ(?I*PS1(*PI 
9?l 4I*°SI IN4I 
771 fc)*PS»<M6) 
>'il  I  € )*PSI  IN3) 


♦ 

♦ 

♦ 

♦ 

♦ 


SFm  *  JPSIRI7) 
SF (7)  *  DPS IZ 1 7 ) 


GOTO  7C0 
OPS  I R  2  . 
CPS  122  « 
CONTINUE 


DP  51 r INI 
DFSIZ  (*) 


PETUPN 

ENC 


. SLEFCUTINE  FCAl If ,W,H, 2  4 ,EAfvZ  ,PC  »ZC ,R«L , VU.NRC.NOCS.WU, 
IKTF.HP  *  EMR7P,  TTOTf  N\'CC»NE4» MM E4 , N* OWS  I 


44 

♦♦  THIS  SUBROUTINE  CAICULATES  THE  RIGHT -HAND 

♦  ♦  FIR, 2)  FOCP  KNOW*  RADIAL  ?  1ST  RIB LT IONS  OF 

44  ENTHALPY, PC‘?FAL?>  ,  AND  E\TCC?V. 

44  CALI  STATEMENT  CCF!NITIC*^  S: 

♦♦  F  »  a  I GnT  HANC  SICE  VECTOR 

♦  ♦  h  «  G  ACS  I  AN  .EIGHT  FUNCTION  A  o  “  4  Y 

44  H  ■  NIC  CAL  TOT A|  CMTHALPY  VEC  TO" 

♦♦  Z A  •  A*PA>  CF  FXCIE  5ALS1  Vj  VALUES 

44  tA  »  AP PAY  CF  ETA  GALS  IAN  VAIL5S 


SIDE  VECTOR 
WHIRL  , 


♦  ♦ 
♦  ♦ 
♦  ♦ 
♦  ♦ 
♦  ♦ 
♦  ♦ 
♦  ♦ 
♦  ♦ 
♦  ♦ 
♦  ♦ 


,1 


nnonrirv 


FILE:  TLFBO 


FORTRAN  A 1  NAVAL  FCSTGPAOLATE  SCHOOL 


P’CCAl  AXIAL  VELOCITY 
APPAY  CF  NODAL  a  COOP'Jl  NAT'S 
APRAY  C F  NQOAL  Z  COr RDI NATES 
»  NOCAL  AMCJLAK  VO*ENTtJ‘t  VECTOR 
NCDAl  Ar.SCLUTE  TAPGeNTIH  VFLJCITY  VECTCP 

•  NODES  aHERE  30LN CAR Y  CONDITIONS  APPLY 
»  APRAY  OF  ELEMENTAL  MOCe  ASSIGNMENTS 
NLMl’ER  CF  NGCES  IN  THE  MESH 

NLWPEK  CF  ELEMENTS  In  The  «ESH 

NCDAl  RELATIVE  TANCE*TI*L  VELOCITY  VECTOR 

•  TYPE  UF  EL£MENT  ARRAY 


IMPLICIT  SEAI.*6I  A-H  ,P-Z) 

INTEGER**  PJREAC.NW I T£ , I C , NNCJ  .NE 4.N PS4. N'ROWS. L IMR ,L IMI 
CCNMON  /PCC'JNT /  NCC L ..JCOLI • NN# NE 
l .NNE.NNfiC.NNNPC 
CCP“ON  ‘/NCCINT/  “POV*  .MRCWt  «  KK 

CCPMCN  /FCCM /  FG,G,CP.»T .TT.hGtWDCT, FhCT,RHOSTA» 
1LIPL=T,LCLLCT.PSI ! .2TJ.F2I2.F1  II,  .0 
Cl  PENSION  ZCIlirCI  !».K  l).F(l  I.TT-TTU) 

01  PENSION  VZ(1  I.VLIl  ».  W?LU)  .M,U  ),SF1<8  I 
C I PENSION  f ACI 1) .NTS( l J.N00SIVE4.1) 

C  »  PEN'S  I f*N  «(  U  *Z*  I1?  >,'A(R),FSI  1  »,ENTRO»(  1 ) 

Cl  PENSION  0<  31 ,et€l .SFISI .RCSI8I.ZCS  O • . PJAC (2 , 2 > 

ZEROIZE  OUT  Fill  . 

CC  50  I  «  l.NNE 
Ft (I)  «  O.CC 
CCMINLE 

CYCLE  PCS  EACH  ELEMENT. 


CC  100  II  »  l.NS 
M  «  PCCEI1  1. 1  ) 
N2  -  NODE (II.?) 
S3  ■  NCCEI if. 3) 
N4  «  NCCEIII.-O 
N5  »  KOFI  1 1,5) 
Nf  «  NCOcl  II.1) 
N7  «  KO"  II  T.M 
N8  *  NCOS U I.F I 


N7  «  PC 
N8  *  M  _ 

RCSI  1)  *  °C  (P  1  ) 

PCS ( 2  I  «  SCINE) 

PC  S I  2  )  »  PC  IN  2  I 
PCS  I  4  )  «  «C IN* ) 

PCS I 5  )  «  SC  IN') 

RCSI t  I  *  PC  INF  » 

RCSI7  )  *  ’C  If: 7  » 

RCSI 6  )  «  PC  IN?  ) 

ZCSI  1  )  -  ZC  (V!  ) 

ZCSI2)  »  2CIN2) 

ZCSI 2)  *  / C  I N i ) 

ZCt(  A  )  »  IC  IP'6  ) 

ZCSI5)  «  ZC<N-3> 

ZCSI t  )  «  ZC  IP  1 ) 

ZCSI7)  *  ZCINM 
ZCSI E)  «  ZCIN2) 

CYCLE  FCR  EACH  LCCAL  NOOP. 

OC  2 CO  J  «  1.5 

EaLL  ShAPP  I  £A  IJ  ) .  Z  A  I  J  ),SP) 

CALL  JACC3I rAIJ | ,ZA( J  )  .O.T. PCS. ZCS.sj  AC) 

OETJ  ■  P JAC II.’) eRJ AC  I  2, 2)  -  FJACIl,?) *RJACI2.1I 
PINC  TFe  ! NVc  RSE  CF  THE  JACCfllAU. 

OLM  «  PJACII.l)  t  T^TJ 
RJACIl.l)  «  RJACI2.2)  t  CETJ 


I 


FI  IE:  UPBC 


FCRTRAN  A 1  NAVAL  POSTGRADUATE  SCHOOL 


RJ/C(1»2  ) 
RJ/Cl?  tl ) 
RJAC12.2  > 


-R JACI 1*21 
-RJAC<2.1) 
OU^l 


05  TJ 
D£TJ 


FINO  NI*LItNl*VI,ThSTAI,NI*RI.O(WFL  )/CR,0(H»/DR 


SUMU  * 

fmv  » 

SUMR  « 
CSOR  « 

SLMT  « 

fcSOR  « 
CAR  LR  ■ 


0.00 
C.OQ 
C.00 
C  .1)0 
C.DC 
C.CO 

o.c: 


oho r  »  c.nc 
CC  lie  KL  ■  l.NNF 
NAi  «  NCCSU  I » KL  ) 

SGKI  «  ♦  SFCKLI*VZ«  Mil 

SUMT  »  SUMT  ♦  SF(KL»’fTT^7(f,/fl) 
tf(N7c(  II  >.“0.2)GCTC!  35 
SUPV  «  SliMV 


105 

lOt 

r 


20C 

’CC 

C 

c 


SUPV  ■  s UMV  *  $F  CK,  l  )*VU(  Mil 
OH  CP  »  CH)H  ♦  (P JAC ( 2 1 1 1  *C  (KL  ) 

♦  RJAC<2,?l*F(Kt  irnt'iMl 
“'OR  ♦  (R  J-*CI2»1)  <0(KL) 

R  J A C  (  2 »  2 )  *eUL)  )  * f'-l  TRCP (N41 ) 


CSCR 


CSOR 

♦ 

GCTC1C6 
SUPV  *  Su.tV  ♦  SFUL)*VJ(  K«*H 
OHCR  «  CHOP  ♦  <« JACl’.l I *C(KL ) 

♦  *J4CI2,2)*fe(KU  IMRiMl) 
CSCR  «  CSOR  ‘  ‘  - -  ‘ 


see 

IOC 


SUPR 

OAFLP 

CONTINUE 


»  v  \  fc.  |  /  •  w  i  »  r  *  ’  i  4  » 

«  CSOR  ♦  (RJACU.l  >  t'HKL  ) 

♦  R.I4C(2,2l  *s(  <LI  >*r.N7RCPn«U 
«  SU^R  ♦  $F  <K  11*^0  C  Mil 

OwPLR  ♦  (RJ->Ci:»  1  )*01XL> 

♦  RJACC2,2)*El<U  )7p.<l(N4U 


F INC  rSINCOEUI.in 

TOSCF  *  SOFT  ♦  OSOR 
CC  20C  I  *  l.ANE 

XX  -  (TOSOR  -  OHCR  ♦  ISU-MV/SDAR)  *OWRLR)*CSFI  !)/SL*’UI»OETJ 


Fill) 
CCM1NLE 
CCNT  IPUE 


*  Fid)  ♦  XX*W  IJI 


ASSEMBLE  RIGHT  HANC  SIDE  VECTOR. 


F  (  N  1 ) 
FOdl 
F  <  F  2  1 
FJF4I 
F(Ml 
F  (  M  I 
F  C  N  7 » 
F(MI 
00  5CC  I 
Ft  ill 
CCNT  iM 
CC*T  TNJ6 
PETt'N 
INC 


FIMI 
F  (  A  i  ) 
f  (Ml 
FIMI 
F(Ml 
fl»M 
F(MJ 

H  *  S ) 
l.NFS 
C.CC 


F$  (1 ) 
FS  12) 
Fini 
FJI4I 
FS  (?) 
F  i  ( 6  I 
FM7) 
F  S  (  j ) 


♦♦ 
♦  ♦ 
♦  ♦ 
♦  ♦ 
44 
44 
44 
44 


SUBRCITINE  CSIPO  (MCN-IMSLI 
ACAPTIC  PGP  THE  2*0  BY  RON  EPMNFLL 

PURPOSE 

Of 74 IN  SCLLTIC?  CF  A  SET  CF  SIMULTANEOUS  LINEAR 
ECL4TI TN * »  AX«* 


♦  4 

♦  4 
44 
44 
4. 
44 
44 
44 


210 


FILE:  TLR80 


FORTRAN  A 1  NAVAL  PC  STGRAOLATE  SCHOOL 


USAGE 

CALL  OSIPO(  A,P,N,KS) 


A  - 


8  - 
N  - 


44 
♦  4 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 

A  VLST  PS  GENERAL.  44 

IF  FATKIX  IS  S I  “'GUI  AR  ,  SOLUTION  VALUES  AR  "  BEAMING-  44 
LESS.  AN  AL  TEPNATT  Vc  SCLLTICN  PAY  Pc  C9TSINEC  PY  JMNG  44 
MATRIX  INVfPSICN  (MINV)  AND  MATRIX  PRODUCT  (GPPPD).  44 

44 

SUBRCLTINFS  Af  C  FUNCTION  SUBPROGRAMS  PECUIREO  44 

NONE  +4 

44 


OESCPIPTICN  or  PAR  A PETERS 
A  A NO  P  MUST  P?  REAL* 8 

MATRIX  CF  COEFFICIENTS  STORED  COLUMNWISE. 

THESE  ARE  C^STRCYEE  IN  THE  COMPUTATION.  THE 
SIZE  CF  matrix  A  IS  N  MY  N.44 

VECTOR  CF  ORIGINAL  CONSTANTS  (LENGTH  N).  THFSE 
ARE  REPLACE1!  HY  FINAL  SOLUTION  VALUES,  VFCTCR  X. 
NUMBER  CF  FOLIATIONS  AND  VARIABLES 
KS  -  OUTPUT  OICIT 

0  FOR  A  NORMAL  SOLUTION 
1  FCP  A  SINGULAR  SET  OF  EQUATIONS 


REMARKS 

MATRIX 


SLERCUTiNE  nSIRC(A,e,N,KS) 

SLERCUT IN 6  OSIPO  NOT  INCLUDED  NON-IMSL  LI3RARY  SUBRfUTINE 


StePOUTINE  STIFF(SC,ZCtR,EM$,ZA.E4,MfNCOF,RHO, 
1F<I,F,PH«,  =  M,NPC,NNCC,Nc4,N\EA  ,NRGwS  ) 


IMPLICIT  R5AL*KI A-H.P-Z) 

INTEGER**  NR  E  A  C.  T  V?  I  T=.  I  C.MNCD,  NS! 
CCMMC/l  /NCrUf-T/  *.C  L.’JCOL:  ,\N,fE 
1 »MMF»NNF( *  NMN  £  C 


V, NNEa,  NRCWS*  L  IMP  ,L  IM  I 


CCMMUN  /FC CM/  PC 

lLINLcT,LCLL"'f  ,PS - - 

CCMMCN  /Pi;rUi-jT/  ,*« 


,'J,CP,PT  »TT  ,WG,»OCT  ,  eFCT  »°HCST  Ai 
I  !.3TU.F2i2,Fl  II ,ZC 

>j  l  i 1  -  uor,  u,  i  .s  is 


CCFMCN  /LIT/  ;,e?AC,N»»  ITS 
DIMENSION  ZC  (  1)  ,JG  |j|  ,:J  c  I  I  ,3r>H8  ),RHC(l ) 

c i ►«=r:c : r n  r»c(  1),>.T"('E*,i),n  u> 

Cl  MEN  SUN  EM  (NNCC.l  )  ,  UJACU ,?  ),PSI(  1 )  ,B ( 1 1 , PMS ( 1 ) 

dimension  u(  -n  ,:m  ,seii»tz:(p|tcAm,>.io),3^2ni 

CINEr  SICN  RL*(  £)  ,  ZC  S(  Ml  «  s'l  t  ( 8,  £|  ,RJACf  2,  21  »G\OR(  9) 


CC  400  II  «  l , Nr 

KCE(  11,1) 
NCOS (11,2) 
NCOS (11,2) 
NCCE  (  11,4) 
NCOS (  l  I , s  ) 
MCCfi  (  I  I,n  ) 
...  -  MCCE  (11,7) 
Nfl  ■  NODE (I  I,P) 
Rr»(  i )  «  pc  if.  l » 
RC V i 2  )  «  «C(N?) 
RCS<  21  «  TC(N2) 
RCS ( A  )  «  PC(VR) 


400 

M 

N2 

N2 

N4 

NF 

N6 

N7 


211 


FILE:  Uf»»0 


FCRTRAN  A 1  NAVAL  PQSTGRADLATE  SCHOOL 


221 

ICC 

i 

c 


33C 

C 


3C5 


2 1C 

m 


net (5 1 
RCSU 1 
RCSI 71 

net ( 8 ) 
zc.si  l  > 
ZCSt  2  ) 
2cs  c  3  > 
ZC  SI  4  1 
Zd*(5  1 
ZCSI6I 

<C‘P' 


ZCS(  6  )  * 


RCIN5) 
PC  INM 
PC  <N7  1 
PC  IN 3  ) 
ZCIN1) 
7C  <N2  ) 
ZCIN31 
ZCIN4I 
ZC  (A*?) 
ZC  INfc 1 
ZCIN7) 
ZC  IMS I 


PERFORM  GAUSS  TAN  CUAC«ATURc  INTEGRATION 


CO  32C  I  *  lic 

CALL  SHAFEIEMII  .ZAIIl.SFl 

CALL  J-CCe<EA<!»  ,7.A(  1 1 .c.PCS  .2CS.RJAC) 

CETJ  «  PJAC (1 .  1I*«JAC( 2. 2  I  -  R J4t( 1. 2I~" JAC I 2. 1 1 


OUR1  * 
BJ/CII 


FlfC  UVgsSc  CF  JACCBIAN 
R JAC (If!)  /  GET J 

#1  J  «  UiCI2.2»  /  CETJ 


R JAC (1 .2  1  •  -RJACI1.2I  /  JHTJ 
RJ/CI2  »l  >  •  -RJACI2.il  /  OETJ 


4.  #2  1 
221  J  * 
CM  Z I  J  I 
O' MOM  j » 


CCMINUE 

IFUI.NF.il  GOTO  IJC 
CCNT  iFLE 


GUM 

l, A 

-  RJACI  1.  U*OIJ)  ♦ 
■  RJAC(2.U*n(J>  ♦ 


RJACll,2»*El J1 

PJ AC (2.2 1*EI J  1 


FINO  RHC,  nf  ANC  8  FQR  M'JME  R ICAL  INTEGRATION. 


RKPP  *  C.CCO 
DC  330  L  -  l.NNE 

NIU  •  NCOE  (I  I. L) 

PHOPR  •  RH0R8  ♦  SFtL»*RHT(MnL»RF.CI’lIILl*filMIL» 
CCMINUF 

SP»  «  1 1  .00/1 RFCP8 1 1*144  .001*1 2 .000 


OC  3CC  J  ■  l.FNE 
IF!  II.Nt.il  GC  TO  70S 

continue 

OC  310  K  ■  l.NN'E 

EPSU.Kl  *  r^tlj.K)  ♦  Will  *  SMK  *  (CNOZI J  )*l)MCZI  K  ) 
L  ♦  JNOM  j)*)Ni)*(Kt  I  *  OETj 

!  *  144.0C3 

CCMIMLE 
CCNT  I NUE 
CONTINUE 


33C 


ASSER2LE  SYSTE*’  INFLUENCE  YAT»IX  W/CUT  REGARD  *CR 
bQUNCW  CCNUTICNS 
Nlll  •  N1 

-  \2 

N3 
N4 
N5 
NN 
NT 
N3 

IS  «  l.NNE 
M  II  I 
OC  350  Jt  »  1 »NNE 
J  «  N( JS  I 

E  *  II  *  J  1  «  tPIl.J)  EMSIIJ.JS1 
CONTINUE 


NI2) 
NO )  « 
NI4)  « 
M  5 1  « 
M  6  J  « 
Nl  7 1  « 
N  (8  1  « 
DO  3  5  C 

!  a 


ZEROIZE  CUT  EMSI  I  FOP  NEXT  ELEMENT 


FILE:  TLP3C 


FORTRAN  A 1  NAVAL  FCSTGRADLATE  SCHOOL 


7C 

C 

400 


410 

C 


00  37C  12  »  ltNNE 
0C  370  42  »  1  tFNE 
EMIII2#J 2)  «  C.OC 
CONTINUE 

RECYCLE  FOR  NEXT  ELEMENT 

CONTINUE 

MODIFY  SYSTEM  OF  ECUATIQNS  TO  INCLUDE  BOUNDARY  CONDITIONS 

CC  410  I  «  1 »NN 

OC  4 1 C  J  *  l.NNBC 
JX  «  NEC  (J) 

F  (  I)  -  Fill  -  Md, JX»*PSI(JX  I 

EMU,jx»«  c.nc 

ECIJX. I ) *  4 .DC 

EMJX,JX)«  l.CO 

FIJXI  »  PSI ( JX) 

CONTINUE 

RETURN 

ENC 


SUBROUTINE  REFLAIFSI  ,F  ,RHS,,NN0CtNE4,  NNE4  j 


R"U*®(«-H,P-Z1 

INTEGER**  N^=AC,r.NP  ITE  tICtNNCD  #\54,NNE4,NRCWS»L  IMR.LIMI 
CCNRON  /NCCJM/  N  CrL.NCuL  I,  NN.NF 
1  .NNE.NNriC  ,MNwC 
CCNMC’N  /NCLUNT/  ypr*,MPCNl,KX 
CINF.NSICN  PSI  m«PSIGfLI»*m»*HSm 

REPLACE  PS  1  (  II  WlTh  SOLUTION  VECTOR  ANC  RESET  Fill  KlTH  RMS (I) 


r 


CC  ICO  I  *  1 »N N 
PSI  (II  *  M  II 
Fill  a  RHS (  II 
CONTINUE 

RETURN 

ENC 


SUBROUTINE  SSL  A  XR’LX.FSI.  <*SIn  .NBC.NM-r:  ,t  S4tN*’E4  I 


IPPLICIT  PEAL  *  E ( A -H  *P-Z I 

INTEOc0  <4  NR  iiC,*  lTStIC,N\ro  ,NE4,NNE4,MRC.<S,LIMR  .LIMI 
CCNVU.-J  /NCCUNT  /  NCOL«NCULltNN»NE 
i  .NNEfNMPC .NNNdC 
fCRMr*l  /NCCJNT/  vr<C«  ♦*RPNJ  ,KK 
Cl  NETS  I  ON  PSI  III  .FSICCll ,F(l  I, PHS(1I 
CIPENSICN  NBC  I  II 

l  F  KK  CE  i  f  FEKFCRM  UNOFR  R?L  AX  AT  ION  )CcORF 
COMPUTING  NON  VELOCITY  SNC  DENSITY  C I  ST? I  GUT  ICN. 


FILE:  TLPBO 


FORTRAN  M  NAVAL  POSTGRADUATE  SCHOOL 


CC 


2CC 

1QC 


IOC 


ICO  I  *  ltNN 
DO  2CC  J  «  l.fNBC 

LIES T  «  I  -  .\BC(  J I 
IP <L  TEST • EQ .0  I  SOTO 
CONTI FUE 
PS! ( I  1  «  PSICU)  ♦  RELX*(PSI(II 
CONTINUE 
RETURN 
EKC 


-  psiohii 


SLEPCUT  INS  MOCCM>*F»P$t»PSIf*Ew»tFL 
C  44444444+44  +  ******  ***** +44+4444444  4+4+44 

c  44  +  444  444444 4 4444444  444+  444+444+4+  4+44+4 
C  44 
(  *4 

C  44444  4 444444 4  +  4*4444444444 44444444 4  +4444 
C  •»  4  +  444  44444  4  44444  444  4  44  444  4444+  4  44  4  4  +  4+4 

c 

IMPLICIT  RSAL*€M-H,p-Z) 

INTFGpR*A  NP.?AC,NKR  KF.IC.NNCD  ,NE4,N 
COMMON  /NCCUNT/  NCHL  tNCOLl «NN»  Kc 
l.NKc.NNfcCtNN'  aC 
CCFMCM  /FCCUKT/  venv,  ,-IRnWl  ,KK 
COMMON  /IIP/  NF~At.N>PITE 
ClMC»'S!CK  P$1 <  II  ,PS  I r (  1)  ♦cMINNCO.  II  , 
WRJTP  (N4FIT?tX400IKK,X 
FCP*AT(  •  *.'LASGr:«-r  EPS  Fra  I T  FRATI 0 
IF  (KK.LT.22 IGCTC15C3 


,NNnO»NE4,NMF4| 

44444444+444+44+444+4444+4+4 
4  4+4  44  44444+44+444444  4  444  44  4 

44 
4  4 

4  444444+4+44444+444444  4+4444 
4+44+44444+4444444+44444444+ 


\E4» NROMS*  L l  MR  *  L I M I 


uco 


Fill 

N  *,  12,*  IS  •  , DIG. 121 


JfCO 


I  FI  *  0 
JCTC  t  - 


1C2 


GCTC  *5! 

K FITE (MM  FITE. 1102  KK 

"TSRATICN  NO.  •  jI3  ,• 


FCFVftT<  • 
1 VEPGfcNCE 


COM 

IEX 


FLETE  *  */» '  STREAM  FUNCTION  CPN 
T  ITERATION  IS  TN  PROGRESS*  I 


PR  SPARE  FCR  NEXT  ITERATION 

stiffness  matrix  AND  RtC-HT 

REPLACE  PSICM)  WlTF  CDRFEN 


.  ZEROIZE 
HAMO  SIDE  VECTOR 
T  VALUE  OF  PS  I. 


IFl  *  2 
CC  460  I 
F<  I  I 


46C 

451 


»  1  »KK 

C.  CC 

psiom  =  psk  n 
On  46C  j  *  l.FK 
=  M  <  I  ,J  )  *  C.OC 
CCNTIMJE 
PE  TURN 
EKC 


suepcutike  tfst<csi »ps in ,x,NKur»KE*» 

444  4  44  4444+4  4+44  4  4  4  +  4  44  444  44  44444+  444  +  4  + 
44 44444 +4+4444 44 44444 4+ 444 44 44 44444 4444+ 
44 
44 

44444444+44+44444+44444+4444+44+44444444 
4+444+ 4+ +4+ 444 +4 444+ 444 4+4 44 4 4 44444+4+4 4 


KNE**  .  MROHS  I 

4  +  44  444+44 44  +  4+  4 4 +4  444  4  4*44  4 
444444444444+4+44+4444+44444 

4  + 
44 

44+444+444444444444444+44444 
4  +  444  4+ 4  4+ 44  44  4  +  4  +  4  44 +  4 +4- 44  + 


IMPLICIT  REAL+El A-H.P-ZJ 
INTEGFR  +  A  NR  EACfKWf  IT®, IC»NNCn  »NS*»M 
CCPPON  /  KCr'JK'  T  /  KCjI.NC0L1.MV.KE 
l.KKS.NNHC  .KVJ3C 
CIFSKSICK  FS  I  (l).FSIC(ll 


NF4*  NR'JVIS*  L  I  MR  t  L I M I 


CCPPAPE  NE*  WC  CLC  STREAM  FUNCTION  DISTRIBUTIONS 


X  ■  O.OC 


•-VS.  *v  %  '. 

» '“  v.  . 

a 

( 

Si 

APPENDIX  G 

3AIIPLE 

PROGRAM  OUTPUT 

■  *r 

PEMCR Y  SPACE  AVAILABLE  : 

i 

REAL 

8  *  <*99  INTtC-EF  *  988 

REAL  4  -  424 

| 

• 

NASA  TASK-1  TRAN  SON  tC  COMPRESSOR 

NC.  CF  MOOES  * 

2  22 

NCI.  OF 

ELEMENTS 

=  63 

KC.  CF  ROWS  * 

7 

NO.  OF 

COLUMNS 

*  9 

SUMMARY  CF  NODAL  COORD INATES 

NOCE 

li  I  ) 

am 

B(  1  ) 

ABS  FLOW  AMS 

PEL  FLCW  ANS 

1 

c.c 

C.  18E78CD  +  02 

C.9100CCD+00 

0.0 

0.0 

2 

o.c 

0.15 2*0 00+72 

C.919J 000+00 

0.0 

o.c 

c.c 

0. 1769240+0? 

0.9 103 00 C+ 00 

0 . 0 

0.0 

V  I 

4 

c.c 

C.  17C53.20+02 

C. 91J0C0C+0J 

0.0 

0.0 

C 

c.c 

0.1'-3°99002 

a.uioocoD+oo 

0.0 

o.c 

6 

c.c 

C.  157190+02 

c.+ioococ+oo 

O.o 

0.0 

7 

0.0 

0.  150091D  +  02 

c.  -noo  cn+ic 

0.0 

J.O 

./ 

e 

o.c 

0.1426140+02 

0.91000CC+00 

0  .0 

0.0 

._- 

C 

c.c 

0.  1347340+02 

C.91.70CCC+-70 

C  .9 1 JO  OCO+oO 

0.0 

0.0 

* 

1C 

c.c 

0.  124  j'- 3D +02 

0.0 

o.c 

\  * 

n 

c.c 

0.11 77970+02 

C  .7?  JO  C  J'7+  JO 

O.J 

o.c 

12 

c.c 

0.  1076960+  J2 

c. 7ioo  ct:  +  cc 

U  .0 

0.0 

■ 

12 

0.0 

C  •  5700°  10  +0 1 

c.^no  coon 

J  .3 

0.0 

F 

14 

c.c 

0. 8C  301G7+01 

C.91 70  COC+OU 

0.0 

0.(7 

£ 

15 

o.c 

0.  7099i)v»0+0 1 

C. 9  1 00  CCO+uC 

J«  0 

0.0 

E , 

It 

C.I5O00CC+01 

0 . 1963100+0? 

C.9 1JJ 000+00 

0  .0 

0.0 

L- 

17 

C. 1500CCC+01 

0.  I  r 5C2  1.7+02 

C.  9  MO  c.  12+  00 

J.O 

0.0 

t 

15 

C. 15C00CC*C! 

0  .  It  23  79n+02 

C.91.’0CCD  +  00 

0.0 

0.0 

IS 

C. 1500CCC+CI 

C  •  14  E65oi)+02 

o.nioo  coo+oo 

■3.0 

0.0 

2C 

C. 1500CCC+CI 

0. 13  3  5520+02 

C.'UJ  JCCJ+UO 

o  .0 

0.0 

<91 

21 

C.15G0CCC+01 

0.116m 3 30+ 02 

c.7i:-o  coD+oo 

0.0 

o.c 

«9 

H 

C. 15C0CCC+CI 

C.S646257+01 

C.'J1 00002+00 

0.0 

0.0 

0. 15000  CC  ♦01 

C.  IJSCOoJ  +  O  1 

c.  -i?j  ccn+oc 

0.0 

0.0 

I4 

C.2C0JCCC+01 

0 . 13m  1403+C2 

u  •  *  i  JO  C  C  C  ♦‘OU 

0  .0 

0.0  ! 

-  , 

2« 

C . 2C0Q0CC  +  01 

C.  17=124^  +  02 

C.M  JOC"J+uO 

0.0 

0.0  j 

2ft 

w  •  2  c.:ju  j  c  ♦  ci 

0 . 1  732 1 90  +02 

C.  >1  J0C7;l+00 

0.0 

o.c 

2*. 

C.3CCC3CC»Cl 

0.1671063+02 

C  •  7100  C00+  70 

J  *  J 

0.0 

2€ 

C. 3 COO  7  01+01 

C  «  !  6  C  7  4  10  +  0  2 

c  100  CC  ’+  00 

0  A  J 

0.0 

29 

C.3C007CC+01 

0,154 15  40  +  02 
0.  14  7  75  20+02 

C.  >U0  CO 0+00 

a  .o 

o.c 

3C 

c.’caoocc+a 

c.'nooccj+oo 

0.0 

0.7 

i 

31 

0.2U0J.J0l+01 

C.  14C0100  +  02 

C.  9 1  JO CCD+  OC 

0  •  J 

0.0 

32 

C .2  C007  0C >01 

0.132  7  7  20+0 .2 

C.9100  CCC+UO 

0  .0 

0.0 

’ — 

33 

C.3CCQ0CC+CI 

0.  1 24  26  5D  +02 

C.910700U+00 

0.0 

0.0 

M 

0 .  3CC00  (•  C  +  Cl 

0.11  5  59  10 +C2 

0.9170C00+00 

0.0 

o.c 

C.3C030CC+C1 

0 • 1062120+02 

0  .9100  C32+C0 

0 . 0 

0.0 

3< 

C.3C070CC «0l 

0.95919  D+ol 

C* c  loj CCuf  CC 

J.O 

0.0 

3  7 

c.?cuo()cc*oi 

0  ..543-10  I'l+Ol 

C  .7  1  70  C'JC+OO 

0.0 

o.c 

36 

C.  2CC(;0CC*C1 

C. 7C«5CCD+'H 

C.9 1 JO  0C0+O0 

7 . 0 

0.0 

39 

C  •  *i  5  w  0  C  C  ♦  ■  J 1 

0. 1P4  V4J7 +02 

C.7U0C  cn+cc 

0.0 

0.  c 

4  C 

C.450Q0CC+01 

C. 1729720+02 

C. '7100000+00 

0  .0 

0.0 

216 

1 

k  ‘ 

;\ 

»\ 

‘ ‘ .  ■ 

SUGARY  Cr  NODAL  COORDINATES 


OCE 

zm 

Mil 

ftU  1 

ABS  FLOW  ANG 

REl 

41 

C #450000 C +01 

C. 160 4490+12 

C.9100C0C+00 

0.0 

0.0 

42 

C.45000CE+01 

C.  1465753+J2 

C.9100CCU+00 

0.0 

0.0 

42 

0  #4  50000  0  *01 

C . 122 1440*02 

C.5100CCD+00 

0.0 

o.c 

44 

C.4500CCC+01 

0.115  +  1110+0  2 

0.3100 C0D+ JO 

0.0 

0.0 

45 

C.4500CCC+CI 

C. 55  cU  50  +  01 

C.MOOOOC+TC 

0.0 

0.0 

46 

C.45O'JOCr+0l 

C.705U00O+O1 

C.9100CCD+00 

0.0 

o.c 

4 1 

C  •  6  COO  CCl'  +  O  L 

0.  1340000  +  0? 

0.9100000+00 

0.0 

0.0 

48 

C . 600000 C +01 

0.17825 6L +02 

C. 91 JO  CCD+uO 

0.0 

0.0 

45 

c.ocoo :cr+oi 

0.1725240+02 

cmoocno+oo 

0  .0 

0.0 

5C 

C.6C000CC+C1 

C.  1664460  +  02 

C.9100CCC+00 

0  .0 

0.0 

51 

C.60000CC+C1 

C.160L377  +02 

C.7100CCO+00 

0.0 

0.0 

52 

C.f CCJCCC+C1 

C. 1535690+02 

0.9100 CCD+OO 

3  .0 

0.0 

52 

C.6COOOCC+C1 

C.  1467C 10+02 

c.5  loooon+oo 

0.0 

0.0 

54 

C.6CCU0CC+CI 

0.1255080+02 

C  •  9 100 CCD+OO 

0.0 

o.c 

C  C 

C.6CCOCCC+GI 

0. 1? l°l 7D+02 

C. 9100000+00 

0.0 

0.0 

56 

0  •  f  C 3 <■) v> € C  ♦CL 

0.1238+' 20 +  02 

c .  9  no  ccb+oc 

0.0 

0.0 

57 

C.cOOO 30C+01 

0 .1152440+02 

C.91000CD+00 

0  .0 

0.0 

56 

c.ecoorcc+oi 

C.  10  5  5  2  50  +  02 

C.9110COC+ JO 

3.0 

0.0 

55 

0.600000C+C1 

0.557101? +01 

c  moo  c  od+  oo 

0.0 

o.c 

6C 

C.eCOOCCC+Ol 

0.6^26150+01 

0  .9  loo  CuO+oO 

3  .0 

o.c 

61 

C.6C00CCD+CI 

C.  *.055000  +  01 

C.u  10J00D+00 

0.  3 

0.0 

62 

C. 8502 00 C +01 

0  .1*  402  50  +02 

c.  4  no  c  o.7+  jo 

0.0 

o.c 

63 

C.25C2CCC  +  C1 

0. 17,474  1  +  02 

0.91  JO  00  l+oo 

0.0 

0.  ) 

64 

0.8502GUC  +01 

C.  16CC 9  20  +  02 

cmoocco+oo 

3.0 

3.0 

65 

C.3532  OCC+Ol 

0 . 1466650+02 

o  moo  ooLi+oo 

0  .0 

0.0 

66 

0#  85^20 JC>Ol 

C.  1316  6 60  +  02 

C.-iOO 03  ^ J  0 

0  .0 

0.0 

67 

0.85020GC+C1 

0  -  11522  10+02 

cmoocco+oo 

0.0 

o.c 

66 

C.6  502  CCC  +  C1 

C.  -.5  6  58  10+01 

C.9lOOCOC+'JO 

0  .0 

0.0 

65 

C.€502CCC+C1 

C.  7C655CO  +  CI 

C.9100COC+00 

0.0 

0.0 

70 

0.m04GC+C2 

0 .13  35  700+02 

c.9100 coo+oo 

0.0 

o.c 

71 

C  .  1 l 604CC  +  C2 

0.  17-23  10+02 

cm  )ooor+oo 

3  .0 

0.0 

7? 

C.  H8.)40C*w2 

0. i724240+J2 

C. 9 100  CCO+OC 

0.0 

0.0 

73 

0. 118040  002 

0 .166’5 10+02 

cmoocoD+oo 

0.3 

0.0 

74 

0. 1U04CC  +  C2 

C.  16  CC4  eO+C2 

C. 9100  CCC+OO 

0.0 

0.0 

75 

o.  neo4cr+02 

0.15348 60 +92 

cmoocco+oo 

0.0 

o.c 

76 

C  .  1 1 P  0  4  C  C  ♦  C2 

C  .  1466300  +02 

C. 9 100 CCD+OO 

0.0 

o.c 

77 

0.  1 1,40  4CD  ♦  C2 

0.13  543  €0+02 

C.  9100  000+00 

0.0 

0.0 

78 

C.US040C+02 

0 .1318540+02 

cmoocco+oo 

0.0 

o.c 

75 

0. 11BJ4CC+C2 

0.12  3  50  70  +  02 

cmoococ+oo 

0.0 

0.6 

8C 

Q.UBJ0CO02 

0. 1151940+02 

C.ciOO CCD+OO 

0.0 

0.0 

r-v 

h.' 1 


SUMMARY  r*  t’ClCAl 

.  COC^O  INATES 

NODE 

Z  ( I ) 
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ELEMENT 


INLET  TFERMOTYNANIC  VARIABLES  ARE  AS  FOLLOWS 
FLOW  PATE  «  G.  1H54CD  +  C3  LBM/SEC 
TCT  CENSI  TV  »  0. 8  51 3R4C-<U  L3.4  CU  FT 

TOT  PRESSURE  ■  0.17500C0+02  PS! 

TOT  TEMPERATURE  *  C.5550GCC+03  DEG  RANFINE 

RCTATICMAL  SPEEC  •  0 .637520D+04  PPM 

INLET  U  VELOCITY  «  C. 3C64220+03  FT/SEC 

GAS  CCNSTANT  «  C.5330CC0+02 

RATIC  CF  S  F  EC  IF  IC  FFATS  «  3.14GOC0O+OI 

SPECIFIC  FEAT  AT  CONSTANT  PRESSURE  ■  0.2400000+00 

STATIC  DENSITY  AT  INLET  ■  0.3221240-01 


KGCES  HHEKI  PS  I  IS  SPECIFIED 


*COE  *C. 


PS  !(  n 

0.2777893*02 
0.2575470*02 
0 .2231050*02 
0*21 ¥2620*32 
0 • 1*  F4S 10*0  2 
C.l7e4?S0*O2 
C. If  67370*02 
0.12^050*02 
C.h*052J*02 
C.c5210»*>*Ol 
0 .7e2fc930*01 
0.5*52620*01 
0.3*654  10*01 
C .1964? I 0*01 

c  *c 

0^2*77890*02 

0  .0 

0.2  7  77650*02 

0.0 

C. 2777803*02 

0.0 

0.2777890*02 

0.0 

0.27778*0*02 

C.O 

C. 27776*0*02 

0  .0 

0.2777850*02 

0.0 

0.2777390*02 

C.O 

0.2777850*02 

<SI?7778*J*C2 

012777  850*02 

0.0 

0.27  77390*02 

c  *  c 

0.2777850*02 

0.0 

0.2777850*02 

0.0 

0.2777850*02 

0.0 

0 .^7  77  893*02 

O*27770'5O*O2 

C.O 

C_?757£*iJ  +  C2 


LAPGFST  FFS 
ITEkAT I CN  MO 
STREAM  FlJNCT 
NFXT  MSMTI 
IAPGEST  EPS 
ITERATICA  K~> 

stream  Fi*rr 

NEXT  I  T£PAT ! 
IAFGFST  EFS 

WERATICA  N° 
REA M  FLNCT 
NEAT  ITctiAT! 
IAPGEST  EPS 
HERAT  I C A  NO 
STREAM  FtNCT 
NEXT  HEPATI 
IA8CPST  EPS 
ITEHAT1CN  NO 
STREAM  FlNr- 
NEAT  ITFCATI 
IAPGEST  EPS 
1TERAT  ICN  NO 
STREAM  FLNCT 
NEAT  ITESATI 
IASGCST  FCS 
ITERATION  vri 
STP EAM  FINCT 
NEXT  ITEFAT! 
•AFUEST  EPS 
f  TER  AT  ICN  t.r 
5TFEAP  FINCT 
NEAT  ITEFAT! 
FRCGP  AM 
RFJUTS  WNIC 
STREAM  FLNCT 


FCF  IT  ER  AT ICN  1  IS  0. 
.  1  CCMFICTE 

ic  a  crmEPcsfCS  not  yet 
ha  IS  IA  FPCGRESS 
FTP  IT  r F  AT! CN  2  IS  0., 


0.3467595542C6D+Q0 
ET  SAT  ISP  TED* 


2  CC*Fl£7e 
rOAVFOIFNCE  NOT 


0.2 C49022 136240+00 
YET  SATISFIED. 


0.9414248  241000-01 


0  .6621886  4048  90-01 


ON  IS  IN  PROGRESS 
FCF  ITFPATITN  3  IS  0. 1259221443230+00 
.  3  CCAFlFTs 

ICA  CONVERGENCE  NOT  YET  SATISFIED. 

CN  IS  IA  F9CGPESS 

FCF  HEPATIC:}  4  IS  0.9414248 2410C 
.  4  CCPFIETF 

ICA  CONVERGENCE  ACT  YET  SATISFIED. 
rt  IS  IN  Pr.CGSESS 

FCF  IT  C 3  AT  [C'S  5  IS  0,6  621986  4048* 

.  5  CCMPIE’E 

ICA  CONVERGENCE  NOT  YET  SATISFIED. 

IN  IS  IA  F  r  CO  FPS  S 

FCA  ITERATION  6  IS  0.46^4987 9380C 
.  6  CC  *  FI  ET  E 

ICA  CONVERGENCE  NCT  YET  SATISFIED. 
n N  IS  IN  PPCGR'SS 

FCF  IT  CP  AT  ICN  7  IS  0.3  422  742  5909} 

.  7  C.  C  A  FI  f  r  f 

ICN  CONVERGENCE  NOT  YET  SATISFIED. 

ON  IS  IN  PtCGfi®SS 

FCF  ITS 3  ATI CN  J  IS  0.2  543172  7912 1 
.  8  CC API STE 

ICA  COAVEPC  EACS  NCT  YET  SATISFIED. 

ON  IS  IN  F3CGPESS 
IAATEO  CN  I  Tc  RATION  NO.  9 


SATISFIED. 


0.46F4987S38000-01 


0.3422  742  590920-01 


0.25 43 172  7912 1C-01 


FCILCw  A R  H  FC9  CONVERGENCE  EPSILON 


0.139017741&520-31 


CONVERGENCE  CRITERION  SATISFIED  CN  ITERATION  NDK8FR 


PE  SILTS  ARE  As  FCLLCV.S  FCP  CONVERGENCE  EPS  ILCN  *  0 . 1 890 17T416  5  2D-C  1 
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FINITE  ELEMENT  RESULTS 
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1  G. 

2  C. 

3  C. 

4  0. 

5  C. 

6  0. 
7  0. 
e  c. 

9  C. 


"4  0. 

25  C.C 

26  C  • 

27  C.O 

2e  c.c 

25  C. 

30  0. 

31  C, 

32  C. 

33  O.C 

34  C.C 

35  C« 

36  O.C 

37  C. 

38  C, 

39  0 

40  C. 

41  C, 

42  0 

43  0 

44  C 

45  0 

46  C.C 

47  C 

48  O.C 
45  C 
SC  c 
51  C 
*2  C 

53  C 

54  C 

55  C 

56  C 
*7  a 

58  C 

59  C.C 

60  O.C 

61  O.C 

62  O.C 

63  C 

64  C 

65  0 

66  0 

67  C 

68  0 

69  C 

70  0 

71  0 

72  0 

73  C.C 

74  O.C 

75  C 
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C.  C 
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O.C 
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54 
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cc 
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C.  C 
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O.C 

0.0 
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c.c 

c.c 
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C.C 

c.c 

ICO 

O.C 

C.  0 
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0.  0 
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O.C 
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1  C  7 
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c.c 
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1C9 

O.C 
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11C 

C.C 

C.  0 
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c.  c 
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114 
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58.484825 

134 
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-C. 5202  97 
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c.c 
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-3  .C  185°2 

C.  0 

>0C  YOU  V  IS»-  TC  CN1FP  THE  PLOT  SEQUENCE? 
1  *  YFS;  2  •  NC. 

>OC  YOU  WISH  TC  CCNTINUE  PLOT  SEQUENCE? 

1  »  YES;  2  «  NC. 

>CC  YOU  WISH  TC  CCNTINUE  PLOT  SEQUENCE? 

1  »  YES;  2  »  N'C. 

>CC  YOU  WISH  TC  CONTINUE  PLOT  SEQUENCE? 

1  *  YES;  2  »  NC. 

>0C  YOU  WISH  TC  CONTINUE  PLOT  SEQUENCE? 

1  »  YES;  2  «  NC. 

>CC  YO'J  WISH  TC  CONTINUE  PLOT  SEQUENCE? 

1  *  YES;  2  »  NC. 

>CC  YCU  WISH  TC  CONTINUE  PLOT  SEQUENCE? 

I  *  YES;  2  *  NC. 

>CC  YCU  WISH  TO  CONTINUE  PLOT  SEOUENCE? 

1  *  YES;  2  *  NC. 

>OC  YCU  WISH  TC  CONTINUE  PLOT  SEQUENCE? 

1  «  YES;  2  *  NC. 

>CC  YOU  WISH  TC  CCNTINUE  PLOT  SEOUENf.E? 

1  *  YES;  2  •  NC. 

>CC  YHJ  WISH  TC  CCNTINUE  PLOT  SEQUENCE? 

1  *  YES;  2  «  NC. 

>CC  YH-j  WISH  TO  CCNTINUE  PLOT  SEQUENCE? 

1  *  VESW  2  *  NC. 

>CC  YCU  WISH  TO  CONTINUE  PLOT  SEQUENCE? 

1  «  YES;  2  •  NC. 

>CC  YOU  WISH  TC  CCNTINUE  PLOT  SEQUENCE? 

1  *  YES*.  2  «  NC. 
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